M
Ming618
Unregistered / Unconfirmed
GUEST, unregistred user!
在RxRichEdit输入:123上下a
用下面的代码检测:
...
var s:String;
a,b:integer;
Begin
For a:=0 To Redit1.Lines.Count Do
Begin
s:=REdit1.Lines.Strings[a];
For b:=1 to length(s) do
Showmessage(s);
End;
End;
...
经测试,在RxRichEdit中,用length(s)得到的中英加杂字符串长度总
比真实值小1(一个汉字计两个长度),如果是中文和数字/英文加杂,用
REdit1.Lines.Strings[a],得到的字符串总少最后一个字符,如果是
纯英文字符或数字,则不会出现这种情况
用下面的代码检测:
...
var s:String;
a,b:integer;
Begin
For a:=0 To Redit1.Lines.Count Do
Begin
s:=REdit1.Lines.Strings[a];
For b:=1 to length(s) do
Showmessage(s);
End;
End;
...
经测试,在RxRichEdit中,用length(s)得到的中英加杂字符串长度总
比真实值小1(一个汉字计两个长度),如果是中文和数字/英文加杂,用
REdit1.Lines.Strings[a],得到的字符串总少最后一个字符,如果是
纯英文字符或数字,则不会出现这种情况