Registriert seit: 3. Mai 2006
Ort: Graz
445 Beiträge
Delphi 10.3 Rio
|
AW: "Pos" findet String wegen Einrückung nicht
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....
|