Entschuldigung, der Code sieht so aus.... :
Delphi-Quellcode:
var
sList: TStringList;
Index: integer;
begin
sList := TStringList.Create;
try
sList.LoadFromFile(FileName);
Index := sList.IndexOf(SearchText);
if Index > -1 then
begin
Result := Index;
end
else
ShowMessage('Text nicht in ausgewaehlter Datei vorhanden.');
finally
sList.Free;
end;
end;