Описание процедуры 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".
Назад
Содержание
Вперед
