Формат строки [D7]
AntonioBanderas © (2010-01-13 01:33:00)
Подскажите что не так делаю. Нужно если поле меньше десяти
символов, забить начало нулями.
var
i: Integer;
IKod: Integer;
begin
ForDiskList := TStringList.Create;
try
with DModule do
begin
Abonents.First;
for i := 0 to Abonents.RecordCount - 1
do
begin
IKod :=
Abonents.FieldByName('IKOD').AsInteger;
ForDiskList.Add(Format('%010d',
[IKod]));
Abonents.Next;
end;
end;
ForDiskList.SaveToFile('ot.txt');
finally
ForDiskList.Free;
end;
Пример ниже на С++ работает, делал по этому примеру
printf ("Preceding with zeros: %010d \n", 1977);
Preceding with zeros: 0000001977
Игорь Шевченко (2010-01-13 01:53:00) [1]
> Подскажите что не так делаю
Справку не читаешь
Наверх 
ЧАТ |
Орешник |
|
