txthght.pas

 {Txthght.PAS}
 
 { Пример программы для функции TextHeight }
 
 Uses Graph;
 
 Const S = 'Turbo Pascal';
 
 Var Gd, Gm : Integer;
    Y, Size : Integer;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  Y:=0;
  For Size:=1 To 5 Do
   Begin
    SetTextStyle(DefaultFont, HorizDir, Size);
    OutTextXY(0, Y, S);
    Inc(Y, TextHeight(S));
   End;
  ReadLn;
  CloseGraph;
 End.