Как узнать размер места, занимаемого текстом

[ramzes777]

Как с помощью делфи узнать размер шрифта (длина и ширина занимаемые текстом)
Т.е. даны: название шрифта, текст, размер.

Пример:
Arial, 'Simple text' ,15

Программа должна вывести: 17х79

Как такое осуществить?

[mihali4]

Просто.

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Font.Name:='Arial';
Label1.Font.Size:=15;
Label1.Caption:='Simple text';
Label1.Repaint;
Label2.Caption:=IntToStr(Label1.Height)+'x'+IntToStr(Label1.Width);
end;

[phomm]

program Project1;
{$APPTYPE CONSOLE}
uses  SysUtils, windows, Graphics;

var tmp : tsize;
ourfnt : tfont;
const ourtxt = 'hello, world!';
fontname = 'arial';

function gettextextents (text : string; afont : tfont): Tsize;
var b : tbitmap;
begin
  b := tbitmap.create;
  b.canvas.font := afont;
  result := b.canvas.textextent(text);
  freeandnil(b);
end;

begin
  ourfnt := tfont.create;
  ourfnt.name := fontname;
  ourfnt.Size := 10;
  tmp := gettextextents(ourtxt, ourfnt);
  Writeln(format('the "%s" text using font %s width is %d and height is %d',
    [ourtxt, fontname,tmp.cx, tmp.cy]));
  freeandnil(ourfnt);
  Readln;
end.

[ramzes777]

Спасибо! Взял код Михалыча