Dann mach ich doch mal ein Beispiel:
Delphi-Quellcode:
function FindeWort(wort: string; Text_Datei: string): Integer;
var sl: TStringlist;
i: Integer;
begin
Result:= -1;
sl:= TSrtingList.Create;
sl.LoadFromFile(Text_Datei);//Textdatei laden
for i:= 0 to sl.Count -1 do
if pos(wort, sl.Strings[i])>0 then begin
Result:= i;
sl.Free;
Exit;
end;//if
sl.Free;
end;
Die Funktion gibt, falls das Wort gefunden wird, die Zeile mit an (Zählung beginnt bei Null), ansonsten ist der Wert -1, wenn das Wort nicht gefunden wird.
MfG
Binärbaum
//Edit: Quelltext korrigiert