Home » Tipps & Tricks » Object Pascal » TStringList » Prüfen, ob ein bestimmtes Wort in einer Textdatei vorkommt

Prüfen, ob ein bestimmtes Wort in einer Textdatei vorkommt

Folgender Code überprüft eine Textdatei, ob ein bestimmtes Wort schon vorhanden ist. Wenn nicht, so wird es hinzugefügt.

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