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;