Einzelnen Beitrag anzeigen

Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: Ausblenden von Zeilen beim füllen eines Memo's mit Daten

  Alt 13. Aug 2003, 15:52
Sehr interessant

Jetzt verwendet ihr schon eine zweite Strringliste, und dann ladet ihr die Datei trotzdem in die Stringliste des Memos.

Ich würde so vorgehen:

1. In eine temporäre Stringliste wird per LoadFromFile die Datei geladen.
2. Eine Schleife von StringList.Count-1 bis 0. In der wird die Zeile gelöscht, falls das erste Zeichen ein # ist.
3. Diese Stringlist der Stringliste des Memos zuweisen und die temporäre Liste freigeben
4. fertig

Also Code:
Delphi-Quellcode:
var
  temp: TStringList;
  i: Integer;
begin
  temp := TStringLList.Create;
  try
    temp.LoadFromFile('test.txt');
    for i := temp.Count - 1 downto 0 do
      if temp[i][0] = '#then Delete(i);
    Memo1.Lines.Assign(temp);
  finally
    temp.Free;
end;
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat