AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

StringGrid Zeilen löschen

Ein Thema von SaFu · begonnen am 4. Jun 2008 · letzter Beitrag vom 5. Jun 2008
Antwort Antwort
Seite 1 von 3  1 23   
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#1

StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:28
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#2

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:30
Ich würde die Zeilen nicht im StringGrid löschen, sondern beim Einfügen gleich filtern.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.769 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:31
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
Klaus
  Mit Zitat antworten Zitat
kaiser1401

Registriert seit: 6. Mär 2006
Ort: Gescher
157 Beiträge
 
Delphi 7 Professional
 
#4

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:36
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

for Pred(sl.Count)-1 downto i := 0 do Ausserdem solltest du vom Count einen abziehen, da da der Index 0-Basiert ist
inc(i);
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#5

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:37
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;
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#6

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:42
Du brauchst 2 Schleifen: die äußere für die Dateien und die innere für die Zeilen der aktuellen Datei.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#7

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:52
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
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#8

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 16:55
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#9

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 17:00
ja so funzt die Schleife aber immer noch nicht das löschen der Zeile.
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#10

Re: StringGrid Zeilen löschen

  Alt 4. Jun 2008, 17:29
Welcher Zeile? Bist Du sicher, dass sie leer ist, oder stehen da evtl. Leerzeichen drin?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz