Registriert seit: 17. Nov 2005
Ort: Hamburg
1.062 Beiträge
Delphi XE2 Professional
|
AW: case of "anstatt constanten - Variablen einsetzen
9. Jul 2020, 00: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....
|
|
Zitat
|