Множественное сохранение PDF файлов

[artemavd]

Добрый вечер! Сделал перевод JPEG в PDF. Все работает нормально, но, есть одно "но". Мне нужно, чтобы каждый JPEG сохранялся в отдельную PDF-ку с таким же именем какое оно было у JPEG файла. А если в папке с файлами будет JPEG файл с таким именем "_тут какое-то число", то файлы с одинаковыми именами до "_" сохранялись в одну PDF-ку. Например, пусть в папке есть такие JPEG файлы:
1.jpeg
2.jpeg
1_1.jpeg
3.jpeg
2_1.jpeg
2_2.jpeg
2_3.jpeg
Должно получиться следующее:
1.pdf (внутри этой одной PDF-ки бывшие 1.jpeg и 1_1.jpeg)
2.pdf (внутри этой одной PDF-ки бывшие 2.jpeg, 2_2.jpeg, 2_3.jpeg)
3.pdf (внутри этой одной PDF-ки бывший 3.jpeg)
Как такое можно реализовать?
Вот код, которые переводит все JPEG файлы указанной папки в одну PDF. Его и нужно как-то переделать под решение моей задачи:

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
begin
 MainForm.SaveDialog1.FileName:='*.pdf';
 if SaveDialog1.Execute then
  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
    k:=ListeJPGtoPDF(MainForm.ListBox1.Items, MainForm.SaveDialog1.FileName + '.pdf');
   end;
  end;
end;

[VintProg]

Может стоит парсер использовать?

[artemavd]

Какой еще парсер? Мне кажется, что тут не нужен никакой парсер. Здесь просто в качестве сохряаняемых файлов как то передать в цикле все значения из ListBox-a....

[VintProg]

Что делает данная процедура ListeJPGtoPDF?

[artemavd]

Она выполняет перевод JPEG файлов в PDF. Вот, чуть продвинулся в своих наработках . удалось сделать, чтобы сохранялся каждый JPEG файл в отдельную PDF-ку со своим именем идентичным имени JPEG файла:
==================
Добавлено:
Вот дополнил код, теперь к имени PDF файлов не будет добавляться расширение исходных JPEG файлов:

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
begin
 MainForm.SaveDialog1.FileName:='*.pdf';
 MainForm.SaveDialog1.Title:='Èìåíà äëÿ ôàéëîâ çàäàâàòü íå íóæíî. Íàæìèòå ñðàçó "Ñîõðàíèòü".';
 MainForm.SaveDialog1.FileName:=DateToStr(Now);
 if SaveDialog1.Execute then
  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
    k:=ListeJPGtoPDF(MainForm.ListBox1.Items,Copy(MainForm.ListBox1.Items[i],1,
                                          Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
   end;
  end;
end;

Но, в каждую созданную PDF-ку кидаются все JPEG файлы. Может кто еще что-то подскажет?

[BOBAH13]

Включаю телепатию.......ОК

1. Видимо список JPEG это MainForm.ListBox1.Items
2. Первый параметр видимо идет TStringList - список JPEG файлов, и вы при вызове ListeJPGtoPDF указываете MainForm.ListBox1.Items, т.е. весь список, все jpeg файлы. Может стоит сделать тогда типа

list: TStringList;
...
list := TStringList.Create;
...
list.Clear;
list.Add(MainForm.ListBox1.Items[i]);
k := ListeJPGtoPDF(list...

Надеюсь помог.

[artemavd]

ВОВАН13, а разве строка

list.Add(MainForm.ListBox1.Items[i]);
k := ListeJPGtoPDF(list...

не означает, что в list все равно передастся весь список из listbox со всеми файлами? Я пока не проверял, спасть собираюсь, а то у меня уже 3 часа ночи....

[BOBAH13]

1. list.Clear; - очистка списка
2. list.Add(MainForm.ListBox1.Items[i]); - добавление текущего одного элемента, видимо пути
3. вызов ListeJPGtoPDF в котором указан список list - имеющий только один элемент.

[artemavd]

Интересная ситуация получается). Теперь создаются PDF-ки так что в самой первой PDF-ке сохраняется один JPEG файл (как и должно быть), но во второй PDF-ке уже 2 JPEG файла, в третьей PDF-ке уже 3 JPEG файла и т.д. Вот такой вот код, применив (возможно неправильно), что сказал ВОВАН13, получился:

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
 list: TStringList;
begin
 list:=TStringList.Create;
 list.Clear;
 MainForm.SaveDialog1.FileName:='*.pdf';
 MainForm.SaveDialog1.Title:='Èìåíà äëÿ ôàéëîâ çàäàâàòü íå íóæíî. Íàæìèòå ñðàçó "Ñîõðàíèòü".';
 MainForm.SaveDialog1.FileName:=DateToStr(Now);
 if SaveDialog1.Execute then
  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
    list.Add(MainForm.ListBox1.Items[i]);
    k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
   end;
  end;
end;

[BOBAH13]

Будьте более внимательны. Я писал так

list.Clear;
list.Add(MainForm.ListBox1.Items[i]);
k := ListeJPGtoPDF(list...

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

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
 list: TStringList;
begin
 list:=TStringList.Create;
 //list.Clear;
 MainForm.SaveDialog1.FileName:='*.pdf';
 MainForm.SaveDialog1.Title:='Èìåíà äëÿ ôàéëîâ çàäàâàòü íå íóæíî. Íàæìèòå ñðàçó "Ñîõðàíèòü".';
 MainForm.SaveDialog1.FileName:=DateToStr(Now);
 if SaveDialog1.Execute then
  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
     list.Clear;
    list.Add(MainForm.ListBox1.Items[i]);
    k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
   end;
  end;
  list.Free;
end;