Einzelnen Beitrag anzeigen

Freyr77
(Gast)

n/a Beiträge
 
#2

AW: "Pos" findet String wegen Einrückung nicht

  Alt 17. Okt 2016, 12:54
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;
  Mit Zitat antworten Zitat