从 TMemo 中获取西里尔字符

Question

我正在使用 Lazarus 开发一个应用程序，我必须获取用户在 TMemo 组件中输入的文本的字符。我正在使用以下代码逐个获取字符（这里的 mmText 是 TMemo 组件的名称）：

var
  I, J: Integer;
  Line: String;
  Symbol: Char;
begin
  for I := 0 to mmText.Lines.Count-1 do
  begin
    Line := mmText.Lines[I];

    for J := 1 to Length(Line) do
    begin
      Symbol := Line[J];
      ShowMessage(Symbol); //this line is for debugging purposes 
      ...

当在TMemo组件中输入拉丁字符时，会出现每个字母的弹出消息，但是当循环到西里尔字符时，弹出消息框中没有任何内容。

你能给我建议我应该怎么做才能达到预期的结果吗？

Answer 1

有兴趣的朋友，答案在这里：

http://forum.lazarus.freepascal.org/index.php?topic=29146.msg183536#msg183536

从 TMemo 中获取西里尔字符

Fetching cyrillic characters from TMemo

freepascal

lazarus