К примеру, назовем функцию "spcs" и создадим следующий код:
|
|
function Spcs(num :
byte) : string; var tmp : string; begin
fillchar(tmp, num+1, '
'); {инициализация всей строки
пробелами}
tmp[0] := chr(num); {устанавливаем длину строки с пробелами}
result := tmp; end; |
Теперь достаточно написать
|
|
Edit1.Text := SurName +
spcs(10) + FirstName. | |