怎样得到字符串的长度（不是字节数）急急急！！！

Question

就是得不到,siz.cy的植不对,是不是MEMO.HANDLE不成呀,
我的QQ63070398

Answer 1

用以下这个就可以：
var
 siz :size;
 src : string;
begin
  src := memo1.lines.strings[0];
  GetTextExtentpoint(Form1.Canvas.Handle,pchar(src),length(src),siz);
end;

Answer 2

用canvas.textextentReturns the width and height, in pixels, of a string rendered in the current font.type
  TSize = record    cx: Longint;
    cy: Longint;  end;function TextExtent(const Text: string): TSize;