5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
syl79 2005-05-23
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
canvas.Font := richedit1.Font;
for i := 0 to richedit1.Lines.Count - 1 do
showmessage (inttostr (canvas.TextWidth(richedit1.Lines.Strings[i])));
end;
var
i : integer;
begin
canvas.Font := richedit1.Font;
for i := 0 to richedit1.Lines.Count - 1 do
showmessage (inttostr (canvas.TextWidth(richedit1.Lines.Strings[i])));
end;
