Ok hier ist sie..
Delphi-Quellcode:
Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
BerechnePreis := true;
if km > 50 then
begin
BerechnePreis := false;
end
else if km < 5 then lieferpreis := 10
Momentan sehe dass da steht falls kmm größer als 50 sind dann BerechnePreis :=False
das ist doch schon seltsam berechnet er dann einfach den preis nicht?
weiter... falls km kleiner als 5km sind dann ist der lieferpreis 10
dann könnte man jetzt folgendes hinzufügen oder?
Delphi-Quellcode:
Function TForm1.BerechnePreis( km: integer; var lieferpreis: extended): Boolean;
begin
BerechnePreis := true;
if km > 50 then
begin
BerechnePreis := false;
end
else if km < 5 then lieferpreis := 10
else if km > 5 then lieferpreis := 5 + km
oder nicht?