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

[DeddyH]

Ich würde die Zeilen nicht im StringGrid löschen, sondern beim Einfügen gleich filtern.

[Klaus01]

Hallo Sascha,

warum löscht Du die Überschriften nicht beim Zusammensetzen der Gesamtdatei?
Auf Leerezeile kannst Du auch beim Zusammensetzen prüfen.

Grüße
Klaus

[kaiser1401]

was kommt denn für ein fehler?

Wenn du mit einer Schleife (for ...) durch eine Liste gehst und gleichzeit einträge daraus löscht hast du das Problem das er am Ende auf eine Zeile zugreifen will die es nicht merh gibt weil du ja zuvor zwischendurch eine rausgelöscht hast (und damit die anderen hochrücken).

Wenn du das so machen willst dann geh Rückwärts durch die schleife mit

Delphi-Quellcode:

for Pred(sl.Count)-1 downto i := 0 do

Ausserdem solltest du vom Count einen abziehen, da da der Index 0-Basiert ist

[SaFu]

Ok da hab Ihr beide recht

müsste das nicht so gehen

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i : Integer;
begin
 try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

 for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   if ((sl1[i]) = '') then
    begin
      sl1.Delete(i);
    end;
   sl2.add(sl1.Text);
  end;
  sl2.SaveToFile ('C:\test.txt');
 Finally
  sl2.Free;
  Sl1.Free;
 end;
 Button6.Click;
end;

[DeddyH]

Du brauchst 2 Schleifen: die äußere für die Dateien und die innere für die Zeilen der aktuellen Datei.

[SaFu]

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
Var  sl1 : TStringList;
     sl2 : TStringList;
     i,x : Integer;
begin
try
  sl1:= TStringList.Create;
  sl2:= TStringList.Create;

for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   
    for x :=1 to Pred(sl1.Count)-1 de
     begin
      if ((sl1[x]) = '') then
       begin
        sl1.Delete(x);
       end;
     end;
   sl2.add(sl1.Text);
  end;
  sl2.SaveToFile ('C:\test.txt');
Finally
  sl2.Free;
  Sl1.Free;
end;
Button6.Click;
end;

wenn ich die schleife rückwerts zählen lasse bekomme ich einen Fehler aber es funzt so auch net

[DeddyH]

Delphi-Quellcode:

for i := 0 to FileListBox1.Items.Count - 1 do
  begin
   sl1.LoadFromFile(FileListbox1.Items[i]);
   
    for x := Pred(sl1.Count) downto 0 do //rückwärts, sonst Bumm
     begin
      if ((sl1[x]) = '') then
       begin
        sl1.Delete(x);
       end;
     end;
   sl2.AddStrings(sl1);
  end;

[SaFu]

ja so funzt die Schleife aber immer noch nicht das löschen der Zeile.

[DeddyH]

Welcher Zeile? Bist Du sicher, dass sie leer ist, oder stehen da evtl. Leerzeichen drin?

[Fussball-Robby]

In dem Falle sollte man das

Delphi-Quellcode:

if ((sl1[x]) = '') then

mit Trim() erweitern:

Delphi-Quellcode:

if Trim(sl1[x]) = '' then

[DeddyH]

Ich würde auf Length(trim(...)) abfragen, aber kommt ja aufs Gleiche raus.

[WIng2005]

Hallo,

ich benutze für sowas die Jedis...das JvStringGrid besitzt die Mezhode RemoveRow()...
Funktioniert super.

MFG
Steffen

[DeddyH]

Nichts gegen die Jedis, aber für so einen "Pipifax" würde ich die nicht installieren.

[WIng2005]

Sicher, nur deswegen wohl eher nicht...eine Möglichkeit wäre es jedoch.

MFG
Steffen

[SaFu]

Hi

so dank eurer hilfe hat es funktioniert hat am Trim gelegen
jetzt habe ich nur noch das Problem dass immer die Überschrift der einzelnen Datein in meiner Monatslog steht wie kann ich das jetzt prüfen und herausnehmen hab versucht mal die 1 spalte zu prüfen ob ein Date drin steht aber funzt net so

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]) = '') or (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;

un auf dem bild seht ihr was ich meine

[Klaus01]

Hallo Sascha,

eine Überschrift hat die Angewohnheit in der ersten Zeile einer Datei zu stehen.
Wenn Du nun, immer die ersten Zeile Deiner Ursprungsdateien löscht oder Du bei Zeile 2 anfängst zu transferieren, sollten
die Überschriften im Stringgrid nicht auftauchen.

Grüße
Klaus

[DeddyH]

Ich würde es mal so versuchen:

Delphi-Quellcode:

sl1.LoadFromFile(FileListbox1.Items[i]);
if sl1.Count > 0 then
  sl1.Delete(0);

[edit] Klaus war schneller [/edit]

[SaFu]

Kann man das nicht mit dem Date in der 1 Spalte machen den in der 1 Datei 1 die überschrift auch drin und die muss drin bleiben

[DeddyH]

Dann lade doch die erste Datei gleich in sl2.

Delphi-Quellcode:

  sl1:= TStringList.Create;
sl2:= TStringList.Create;
if FileListBox1.Items.Count > 0 then
  sl2.LoadFromFile(FileListBox1.Items[0]);
for i := 1 to FileListBox1.Items.Count - 1 do // 0 in 1 ändern, sonst doppelt

[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: