从TMemo中提取cyrillic字符
从TMemo中提取cyrillic字符
提问于 2015-07-22 13:35:38
我正在使用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组件中输入拉丁字符时，会出现带有每个字母的弹出消息，但当循环到达西里尔字符时，弹出消息框中没有任何内容。
你能给我建议一下我该怎么做才能达到预期的效果吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-07-24 09:55:58
对于那些有兴趣的人，答案是：
http://forum.lazarus.freepascal.org/index.php?topic=29146.msg183536#msg183536
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31564748
复制相关文章
相似问题
腾讯云开发者
