Описание процедуры NumString



Листинг 4.2. Описание процедуры NumString

procedure NumString(N: Integer; var S: string);
var
V: Integer; begin V := Abs(N) ;
S : = " ;
repeat
S := Chr(V mod 10 + Ord('0')) + S; V := V div 10;
until V = 0;
if N < 0 then S := '-' + S; end;

Для вызова данной процедуры можно в любом месте основной программы поступить следующим образом:

NumString(17, MyString);

В результате выполнения данного оператора, который называется оператором вызова процедуры, в строковую переменную с именем MyString будет помещено значение "17".

Назад
Содержание
Вперед


Содержание раздела