Форум: "Начинающим";
Текущий архив: 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.017 c