Tarifrechner

[TBx]

Nun auch nochmal meinen Senf dazu:

- Du prüfst nicht ab, ob da womöglich jemand ein Gewicht <= 0 eingibt
- Du prüfst nicht ab, ob ein Gewicht >100 eingegeben wird
- Der in der Procedure Ablauf abgeprüfte Wert für Tarif wird nie erreicht.

Gruß aus dem hohen Norden

Thomas

PS: Ach ja, Dein Delphi meckert wahrscheinlich auch immernoch, daß der Funktion Tarif möglicherweise kein Ergebnis zugewiesen wird.
PPS: Um den Rückgabewert einer Funktion zu setzen kann man entweder den Namen der Funktion verwenden oder das reservierte Wort Result.