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]