Einzelnen Beitrag anzeigen

Whookie

Registriert seit: 3. Mai 2006
Ort: Graz
445 Beiträge
 
Delphi 10.3 Rio
 
#19

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

  Alt 17. Okt 2016, 17:08
Da ist eindeutig ein TStringList.Create/.Free zuviel drin!

So müsste das aussehen (nicht getestet):
Delphi-Quellcode:
begin
  Result := -1;
  sList := TStringList.Create;
  try
    LTst := LowerCase(Trim(SearchText));
    for i := 0 to sList.Count-1 do
    begin
      if Pos(LTst, LowerCase(sList[i])) > 0 then
      begin
        Result := i;
        Break;
      end;
    end;
  finally
    sList.Free;
  end;
  //
  If Result < 0 then
    ShowMessage('Einstiegspunkt wurde nicht gefunden.');
end;
Whookie

Software isn't released ... it is allowed to escape!

Geändert von Whookie (17. Okt 2016 um 19:39 Uhr) Grund: -= (du sollst keinen ungetesteten code eingebn.dusollst keinen....
  Mit Zitat antworten Zitat