Сохранение файлов с именем с нумерацией 001,002,...

[artemavd]

Всем привет! Прошу помощи в следующем вопросе. Нужно создать, при сохранении файлов, нумерацию 001, 002, 003.... и сохранять n-файлов с именем 048111PS01001.xml, 048111PS01002.xml ..... . Вот полный код обработки:

procedure TForm1.sSpeedButton3Click(Sender: TObject);
var
 Xmldoc:IXMLDocument;
 Ninode:IXMLNode;
 i,num,s: Integer;
 sFilename: string;
begin
 if Form1.sPathDialog1.Execute then
 begin
  Form1.sPanel11.Visible:=True;
  Form1.RxDice1.Visible:=True;
  Form1.RxDice1.Rotate:=True;
  Form1.sProgressBar1.Style:=pbstMarquee;
  Application.ProcessMessages;
  Form1.sEdit6.Text:=DateToStr(Now) + '|' + TimeToStr(Now);
  Form1.sEdit2.Text:=Form1.sPathDialog1.Path + '\';
 end;
  Form1.qry1.Active:=False;
  Form1.qry1.SQL.Clear;
  Form1.qry1.SQL.Text:='select * from ' + ExtractFileName(ChangeFileExt(Form1.sStatusBar1.Panels[3].Text,''));
  Form1.qry1.Active:=True;
  Application.ProcessMessages;
  Form1.sMemo1.Clear;
  Form1.qry1.First;
  Application.ProcessMessages;
  while not Form1.qry1.Eof do
  begin
   Form1.sLabel3.Caption:='Ïåðåíåñåíî çàïèñåé:';
   Form1.sMemo1.Lines.Add(Form1.qry1.FieldByName('INSNMB').AsString);

   if Form1.sMemo1.Lines.Count = StrToInt(Form1.sEdit13.Text) then
   begin
//============================ôîðìèðóþ äåðåâöå XML==============================
    Xmldoc:=TXMLDocument.Create(nil);
    Xmldoc.Active:=True;
    Xmldoc.Options:=Xmldoc.Options + [doNodeAutoIndent];
    Xmldoc.Version:='1.0';
    Xmldoc.Encoding:='Windows-1251';
    with Xmldoc do
    begin
      with  AddChild('snils_zl_list') do
         begin
           with AddChild('zglv') do
             begin
               ChildValues['filename']:=Form1.sEdit12.Text;
               ChildValues['version']:='1.0';
               ChildValues['cod_pfr']:=Form1.sEdit9.Text;
               ChildValues['nrec']:=Form1.sEdit13.Text;
             end;
             with AddChild('shils') do
             begin
                for i:=0 to Form1.sMemo1.Lines.Count - 1 do
                begin
                 with AddChild('snils') do ChildValues['snils']:=Form1.sMemo1.Lines[i];
                      Application.ProcessMessages;
                end;
             end;
         end;
    end;
    num:=1;

    if StrToInt(Form1.sLabel15.Caption) < 1000000000 then
    begin
     Form1.sLabel15.Caption:=IntToStr(StrToInt(Form1.sLabel15.Caption) + 1);
     Form1.lbl1.Caption:=Form1.sLabel15.Caption;
    end;
    if StrToInt(Form1.sLabel15.Caption) >= 10 then
    begin
     Form1.lbl1.Caption:=Form1.sLabel15.Caption[2] + Form1.sLabel15.Caption[3] +
                         Form1.sLabel15.Caption[4]
    end;

    Form1.sEdit12.Text:=Form1.sEdit9.Text + Form1.sEdit10.Text[3] +
                        Form1.sEdit10.Text[4] + Form1.sEdit11.Text + 'PS' +
                        Form1.sEdit8.Text + Form1.lbl1.Caption;


   sFilename:=Form1.sEdit2.Text + Form1.sEdit12.Text + '.xml';
   while FileExists(sFilename) do
    begin
     Inc(num);
     Form1.lbl1.Caption:=IntToStr(num);

    sFileName:=Form1.sEdit2.Text + Form1.sEdit12.Text + IntToStr(num) + '.xml';
    end;
    Xmldoc.SaveToFile(sFilename);
    Form1.sListBox1.Items.Add(Form1.sEdit12.Text + '.xml');
    Form1.sMemo1.Clear;
    Form1.sLabel1.Caption:=sFilename;
    Form1.Caption:=Form1.Caption + ' Ôàéë ñîõðàíåí â - [' + Form1.sLabel1.Caption + ']';
    Form1.sEdit7.Text:=DateToStr(Now) + '|' + TimeToStr(Now);
//==============================================================================
    end;
   Form1.sEdit4.Text:=IntToStr(Form1.sMemo1.Lines.Count);
   Form1.sEdit5.Text:=IntToStr(StrToInt(Form1.sEdit3.Text) - Form1.sMemo1.Lines.Count);
   Application.ProcessMessages;
   Form1.qry1.Next;
   Application.ProcessMessages;
   end;
  Application.ProcessMessages;

  if Form1.sMemo1.Lines.Count = 0 then
  begin
   Form1.sLabel7.Caption:='Ñîçäàíèå XML ôàéëîâ âûïîëíåíî! Áûëî ñîçäàíî [ ' +
                          IntToStr(Form1.sListBox1.Items.Count) + ' ] ôàéëîâ!';
   Form1.RxDice1.Visible:=False;
   Form1.RxDice1.Rotate:=False;
   MessageBox(Handle,'Ñîçäàíèå XML ôàéëà çàâåðøåíî!','Èíôîðìàöèÿ',MB_ICONINFORMATION);
  end;
end;

[artemavd]

Создание нумерации 001,002... я решил таким кодом:

    if StrToInt(Form1.sLabel15.Caption) < 1000000000 then
    begin
     Form1.sLabel15.Caption:=IntToStr(StrToInt(Form1.sLabel15.Caption) + 1);
     Form1.lbl1.Caption:=Form1.sLabel15.Caption;
    end;
    if StrToInt(Form1.sLabel15.Caption) >= 10 then
    begin
     Form1.lbl1.Caption:=Form1.sLabel15.Caption[2] + Form1.sLabel15.Caption[3] +
                         Form1.sLabel15.Caption[4]
    end;

ПРошу помощи в объединении этих двух кодов, чтобы файлы создавались с правильной нумерацией:
048111PS01001.xml
048111PS01002.xml
048111PS01003.xml
......
Сам XML файл все правильно работает и создается, сохраняется как надо. Проблема с последними тремя цифрами в имени файла. Прошу реальной помощи по моему коду и по сабжу. Заранее спасибо за помощь! ПРоблема начинается с выделенного участка кода.

[OlegVE]

Здравствуйте
Вариант формирования имени

var   source, dest : string;
...
  // Присвоение нашей первоначальной строки
  dest   := '0000000000000.xml'; // Длина = 17

  // Копирование подстроки из источника в середину приёмника
  Move(source[1], dest[13-Length(source)], Length(source));
 // Аналогично формируем начало имени

Может я что-то не так понял...
До свидания
P.S. Вы удаляете моё сообщение? Первый раз не записалось.

[artemavd]

Извини, но мне не надо других кодов. Мне нужно правильно расставить логически выделенный код, т.к. по отдельности этот код прекрасно работает. Всякие копирования и прочее мне не нужны в данном случае.

[Человек_Борща]

Число с потолка? Нет, так дело не пойдёт. Нумерация будет не верна в любом случае если программа не знает какой номер был придыдущий.

Когда нумеруешь заноси имя файла в массив, и проходись по массиву, если там нет такого файла, то создавай его.

А ещё есть это: http://delphiworld.narod.ru/base/cou...tion_time.html

[Serge_Bliznykov]

предлагаю такой вариант изменения кода:

   Num := 1;
   sFilename:=Form1.sEdit2.Text + Form1.sEdit12.Text + Format('%.3d',[Num]) + '.xml';
   while FileExists(sFilename) do
     begin
       Inc(num);
       Form1.lbl1.Caption := Format('%.3d',[Num]);

       sFilename:=Form1.sEdit2.Text + Form1.sEdit12.Text + Format('%.3d',[Num]) + '.xml';
      end;
   Xmldoc.SaveToFile(sFilename);