Registriert seit: 17. Sep 2002
314 Beiträge
|
In einer Textdatei prüfen ob ein wert schon vorhanden ist
2. Apr 2003, 00:50
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]
Bis bald man liest sich
Tino
|