wort in *.txt datei suchen

[Binärbaum]

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