Textdatei einlesen und bestimmte Zeilen löschen

[marabu]

Und noch ein Denkanstoß:

Delphi-Quellcode:

type
  TLuckieList = class(TStringList)
  public
    function Add(const S: string): Integer; override;
  end;

function TLuckieList.Add(const S: string): Integer;
begin
  if Copy(S, Pred(Length(S)), 2) = '  '
    then Result := -1
    else Result := inherited Add(S);
end;

Grüße vom marabu