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?

[mkinzler]

Nein, du musst die letzten beiden Abfragen umdrehen, denn sonst wird die letzte nie aufgerufen.

[andiak]

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

so?`

[mkinzler]

Ja. Obwohl das letzte If jetzt weggelassen kann ( die Berechnung reicht)

[andiak]

hey thats cool muss ich mal schauen ob ich das jetzt alles nochmal ohne forum schreiben kann

danke für die antworten.. und das ihr mich erträgt ^^