Gibt es ein Schnelleres verfahren als Min?

[Sharky]

Hai "Hallo_Thomas",

unabhängig von deiner Frage:

Delphi-Quellcode:

  
...
for x := meineListe.count - 1 downto 0 do 
  for y := 0 to 144 do  // Mit jedem SetOfByte vergleichen 
  begin 
    if (StrToInt(meineListe.Strings[x]) in werte[y]) then 
    begin 
...

Du wandelst hier bei für jeden X-Durchlauf 144 mal meineListe.Strings[x] in einen Integer um. Arbeite doch lieber mit einer Hilfsvariablen und mache die Umwandlung nur einmal.