Форум: "Начинающим";
Текущий архив: 2010.03.14;
Скачать: [xml.tar.bz2];
ВнизФормат строки Найти похожие ветки
← →
AntonioBanderas (2010-01-13 01:33) [0]Подскажите что не так делаю. Нужно если поле меньше десяти символов, забить начало нулями.
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) [1]
> Подскажите что не так делаю
Справку не читаешь
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.03.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c