mehrere Dateien in 1

[DeddyH]

Mit Create vor dem ersten Zugriff

[SaFu]

Das habe ich schon vor dem 1 Zugriff und auch Create kommt aber immernoch die Meldung

Delphi-Quellcode:

//=====================Dateien aneinander hängen==============================
procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i,x : Integer;
begin
 ForceDirectories(JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'_CDR_'+ ComBobox3.Text + '_' + ComboBox1.Text);
 try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

 for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);

   for x := Pred(sl1.Count) downTo 0 do
     begin
      if Trim(sl1[x]) = '' then//or (Trim(sl1[x]) = 'Date') then
       begin
        sl1.Delete(x);
       end;
     end;

    sl2.addStrings(sl1);
    end;
  sl2.SaveToFile (JvComputerInfoEx1.Folders.Desktop+ '\'+ExtractFileName(ShellTreeView2.Path)+'_CDR_'+ ComBobox3.Text + '_' + ComboBox1.Text +'\'+ ComBobox3.Text+'_'+ ComboBox1.Text+'.log');
 Finally
  sl2.Free;
  Sl1.Free;
 end;
 Button6.Click;
end;

[DeddyH]

Setz das try mal weiter nach hinten.

Delphi-Quellcode:

sl1:= TStringList.Create;
sl2:= TStringList.Create;
try
...

[SaFu]

uuupppsss

Danke das wars falls jemand noch ne Verbesserung hat bin ich gerne offen aber hab noch ne andere Frage schreib ich aber in den berits schon offenem Post