StringGrid Zeilen löschen

[SaFu]

Ich glaube jetzt stimmt garnichts mehr jetzt bekomm ich einiges gelöscht aber nicht die Überschrift

[SaFu]

ok geht doch danke

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);

 sl1:= TStringList.Create;
 sl2:= TStringList.Create;
try
 if FileListBox1.Items.Count > 0 then
  sl2.LoadFromFile(FileListBox1.Items[0]);

 for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
     if sl1.Count >0 then
     sl1.Delete(0);
     for x := Pred(sl1.Count) downTo 0 do
     begin
      if (Trim(sl1[x]) = '')  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]

Nun hast Du aber die erste Datei doppelt.

[SaFu]

Tatsache das gibts doch net ich dreh gleich durch

[DeddyH]

Schau Dir nochmal meinen Kommentar in #20 genau an :zwinker: