Allgemeine Fragen zu Delphi

[andiak]

also

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
  else 
    if km >25 then lieferpreis := 30

so?