{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.