Einzelnen Beitrag anzeigen

RaSoWa1

Registriert seit: 1. Jun 2006
Ort: Halle/Saale
140 Beiträge
 
Delphi 2010 Professional
 
#11

AW: Optimierung Code / Alternative zu Stringlist? (Delphi 5)

  Alt 15. Mär 2011, 17:55
Bei langen Stringlisten verwende ich zum Suchen nicht "IndexOf".
Folgender Code ist bei mir viel schneller (warum auch immer?):
Delphi-Quellcode:
function InLst(lst: TStrings; s: String): Integer;
var i : Integer;
begin
  result := -1;
  for i := 0 to lst.Count - 1 do
    if lst[i] = s then
    begin
      result := i;
      Break;
    end
end;
Gruß
Klaus
Klaus
  Mit Zitat antworten Zitat