Советы по Delphi

         

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


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



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