我在使用Richedit时遇到几个问题:

Question

我用
SHOWMESSAGE(INTTOSTR(length('qwer中国')));显示的是8个

Answer 1

2、    showmessage(inttostr(length('qwer中国')));
我的机器显示是8，没问题。
3、richedit1.caretpos:=point(1,3);

Answer 2

SHOWMESSAGE(INTTOSTR(length(REC.Lines.Strings[0])));
显示也是8个

Answer 3

SHOWMESSAGE('列：'+INTTOSTR(REC.CaretPoS.X)+' 行:'+INTTOSTR(REC.CaretPoS.Y)+);显示列行坐标

Answer 4

判断第一行var
i; integer;
begin
  for i := 0 to length(richedit1.lines[0])-1 do
    if ord(richedit1.lines[0])>128 then
    begin
      showmessage('中');
      break;
    end;
  if i=length(richedit1.lines[0]) then showmessage('没中文');
end;