Moin,
was soll das werden - eine Palettenstapel-Optimierung?
Ich würde zumindest die Lastberechnungen in eine Funktion auslagern:
Delphi-Quellcode:
const
G = 9.81;
function CalcPallets(n, load: Word; var weight, momentum: Double): Boolean;
begin
Result := n in [1..6];
if Result then
begin
weight := n * load * G / 2;
case n of
1, 2: momentum := weight * 0.45;
3, 4: momentum := weight * 1.35 - load * G * 0.9;
5, 6: momentum := weight * 2.25 - load * G * 1.8 - load * G * 0.9;
end;
end;
end;
Grüße vom marabu