StringGrid Zeilen löschen

[SaFu]

HI

Ich nochmal immernoch mit meinen Logfiles und zwar habe ich es ja mitlerweile geschaft die ganzen Logfiles in eine zu bekommen jetzt ist mitr natürlich aufgefallen das ich jedes mal die überschrift drin habe und eine lehrzeile am schluss der datei.

Wie bekomme ich jetzt die Doppelten überschriften und die leerzeilen aus der datei heraus.

am besten wäre es die Zeilen im stringgrid zu löschen da ich zum schluß die zeilen des StringGrids speicher

Versuche es gerade so

Delphi-Quellcode:

procedure DeleteLins(sl:TStrings);
var i :integer;
begin
  for i := 0 to Pred(sl.Count) do
  if ((sl[i]) = '') or ((sl[i]) = 'Date') then // die Zeile mit der überschrift fängt immer mit Date an
   begin
    sl[i]:='leer';// hier sollte das löschen passieren
   end
end;

procedure TForm1.Button7Click(Sender: TObject);
var i :Integer;
begin
 for i:= 1 to StringGrid1.RowCount - 1 do
  begin
    DeleteLins(StringGrid1.Rows[i]);
  end;
end;

für das löschen der Zeilen hab ich in der Code Library was gefunden aber das funzt alles net so