Hallo zusammen..
Folgendes Problem:
Ich habe mir folgenden Quellcode überlegt, um zu prüfen ob eine Eingabe schon in meiner *.txt Datei vorhanden ist...
Delphi-Quellcode:
List := TStringList.Create;
if FileExists(ExtractFilePath(ParamStr(0))+'Words.txt') then
begin
List.LoadFromFile(ExtractFilePath(ParamStr(0))+'Words.txt');
for j := 1 to List.Count-1 do
begin
k := j;
if List.Find(Uppercase(tx),k) then
begin
ShowMessage('Wort bereits in Liste vorhanden!');
break;
List.Free;
exit;
end;
end;
try
List.Free;
finally
end;
end;
Jedoch wird nie ein Wort gefunden wenn es in der Datei vorhanden ist
Vielen Dank für euer Bemühen im vorraus
