function Spcs(num : byte) : string;
var
tmp : string;
begin
fillchar(tmp, num+1, " "); {инициализация всей строки пробелами}
tmp[0] := chr(num); {устанавливаем длину строки с пробелами}
result := tmp;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Функция наполнения строки", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!