如何获得界面上字符串的宽度与高度（即多少个象素）？

[acqy]

如题，如果我在Canvas上TextOut一个字符串，那么如何获得这个字符串的宽度与高度呢？也就是宽度和高度占用多少象素？

[何鲁青]

跟textout的字体有关系吧...

[jackystar]

看来分都是我的了
str:string;
str:='ddfdfdfdf我的分';
function GetCharSize(Canvas: TCanvas;str:string): TPoint;
begin
GetTextExtentPoint32(Canvas.Handle, Pchar(str),length(str),TSize(Result));
end;