Funktionsaufrufe wegoptimiert???

[sx2008]

Zitat von iphi:

Es handelt sich nämlich nicht nur um 3 Ausdrücke sondern um ca. 100.
Ich liebe Compilerschalter

Auweia !!! Bei 100 Prüfungen müssen doch alle Alarmglocken läuten.
Hast du mal etwas von einer For-Schleife gehört?
Oder einem Konstanten-Array?

Delphi-Quellcode:

const
  LISTE: array[0..99] of string = (
  'A=',
  'B=',
  .... );
...
  for i := Low(LISTE) to High(LISTE) do
  begin
    erg := FindEntry(F, LISTE[i], wert[i]);
    ok := ok and erg; 
  end;