procedure TForm1.Button1Click(Sender: TObject);
var
  W, H: Integer;
begin
  W:=Form1.Canvas.TextWidth(Edit1.Text);
  H:=Form1.Canvas.TextHeight(Edit1.Text);

  OutputDebugString(Format('가로: %d, 세로: %d', [W, H]));
end;




Posted by bloodguy
,