wort in *.txt datei suchen

[Rastaman]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('c:\favoriten.txt');
    if pos('suchtext', sl.Text)=0 then begin
      sl.Add('suchtext');
      sl.SaveToFile('c:\favoriten.txt');
    end
    else
      ShowMessage('suchtext ist schon vorhanden.');
  finally
    sl.Free;
  end;
end;

Von www.Delphi-Source.de

[edit]Mir fällt grad auf dass der post total überflüssig ist [/edit]