Moin moin!
Erstmal Danke für die Hilfe, ich hab jetzt mal dran rumgebastelt.
Aber folgendes: ich kann als Beträge keine KOmmazahlen einsetzen und so wie ichs jetzt hab läufts net weil er anstatt else end erwartet wieso auch immer. und wenn ich sowohl <100 als auch >=100 mit zwei getrennten if´s deklarier dann verdreht er wann er mwst versand dazurechnen muss und wann net.
schauts euch einfach mal an:
Delphi-Quellcode:
var erg : real;
erg2 : real;
erg3 : real;
Begin
erg := strtofloat(Edit1.text) + strtofloat(Edit2.text) + strtofloat(Edit3.text);
if erg < 100
then
label7.Caption := FloatToStr(7.50);
erg2 := (erg + 7.50) * 0.16;
label8.caption := FloatToStr(erg2);
erg3 := (erg + 7.50) * 1.16;
label9.caption := FloatToStr(erg3)
else
label7.Caption := FloatToStr(0);
erg2 := erg * 0.16;
label8.caption := FloatToStr(erg2);
erg3 := erg * 1.16;
label9.caption := FloatToStr(erg3);
end;
end.