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

[Chewie]

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;