Функция наполнения строки

К примеру, назовем функцию "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.

[000447]

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