In einer Textdatei prüfen ob ein wert schon vorhanden ist

[City Light]

Delphi-Quellcode:

{
Folgender Code übergeprüft eine Text Datei, ob ein bestimmtes Word
schon vorhanden ist. Wenn nicht so wird dieses hinzugefügt.
}
 
procedure Form1.Button1Click(Sender: TObject);
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('C:\Favoriten.txt');
    if pos('www.delphipraxis.net', sl.Text) = 0 then
    begin
      sl.Add('www.delphipraxis.net');
      sl.SaveToFile('C:\Favoriten.txt');
    end else
      ShowMessage('www.delphipraxis.net ist schon vorhanden.');
  finally
    sl.Free;
  end;
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]