Функция наполнения строки
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
|
|
|
|
|
Доска бесплатных объявлений - сро краснодарского края. . запчасти для спецтехники . купить телефон филипс . Декоративные водопады . |
