Variable mit mehreren Werten vergleichen ohne "OR" ?

[MaBuSE]

Zitat von negaH:

...und die meistens nachfolgenden CASE OF Abfrage wird durch den Compiler dann so ineffizient implementiert (als lineare Vergleichsliste mit Sprungmarken). Alleine die CASE OF Abfrage würde also bei 1024 Suchbegriffen im Durchschnitt 512 solcher bedingten Sprünge ausführen und morderne CPUs hassen quasi solche Branches und verlieren dabei enorm an Durchsatz/Performance.

Was hällst Du denn von folgender Idee:

Wenn der Vergleich (case) im Programm häufig vorkommt (z.B. in einer Schleife), könnte man ja statt dem Case ein array of procedure verwenden, das zuvor initialisiert wurde.
Das müsste doch funktionieren, oder?

Delphi-Quellcode:

var
  i: Integer;
  machWas: array of procedure;
...
begin
... 
  while (...) do
  begin
...
    i := IndexOf(s, [...]); // [...] -> viele Einträge
    if i>-1 then machWas[i]
            else machNix; 
...