Функция перевода из Real/integer в String Опции

[rsboarder]

Подскажите плс нупу)

[volvo]

procedure Str(X [: Width [: Decimals ]]; var S:string);

Как пользоваться - см. Help...

[rsboarder]

а мона какой-нить пример?)

[volvo]

function IntToStr(I: Longint): String;
var S: string[11];
begin
  Str(I, S); { <--- Вот и вызов Str }
  IntToStr := S;
end;

begin
  Writeln(IntToStr(-5322));
end.

(пример - из справочной системы Турбо Паскаля...)

[Гость]

Списиба
Лично мне ето помогло :D