Hey danke das geht, nur ergibt sich bei der Rechnung
150 * 0,8 bei mit nun 150 und das kann doch nicht sein, dass müsste 120 geben ???
habt ihr vielleicht auch dafür eine Lösung ???
Delphi-Quellcode:
if get = 2 then
begin
if mais < 40000 then
begin
mais := mais + Felder * 150;
Panel12.Caption := floattostr(mais) + 'kg';
end;
end;
der rest des quellcodes für diese funktion ist ja schon oben