Функция
преобразования целого(integer) в строку с заданными длиной и символом
заполнения
Бывает
очень полезна когда надо добавить спереди нулики. Например: с копейками,
поставил foxstr(i,2,'0') и можно не заморачиваться с тем а будет ли i
больше десяти или нет
function foxstr(i,l:integer;c:char=' '):string;
var s:string;
k:integer;
begin
s:=inttostr(i);
if length(s)<l then
begin
for k:=1 to l-length(s) do
s:=c+s;
end;
result:=s;
end;