Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.041 Beiträge
 
Delphi XE2 Professional
 
#8

AW: case of "anstatt constanten - Variablen einsetzen

  Alt 8. Jul 2020, 23:39
Habe schon mal was über eine Lockup Tabelle gelesen komm da aber nicht weiter.

Delphi-Quellcode:
function ESPwerte(ESP : integer ):integer ;
const
   EZ:Array[0..29] of Integer=
      (0,0,0,0,0,0,0,3,11,20,30,41,53,66,80,94,108,122,135,148,159,170,179,187,
       193,198,202,205,207,208);
begin
   if ESP<0 then raise Exception.Create('ESP ist negativ');
   Result:=EZ[Min(ESP,29)];
end;
Nun kommt mein Problem: die Werte in der case of sind ja Constanten und die möchte ich aber entsprechend der Werte in den Editfeldern 32-64 verändern.
Das hab ich nicht verstanden.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat