Thema: Delphi Tarifrechner

Einzelnen Beitrag anzeigen

xsus

Registriert seit: 30. Okt 2011
7 Beiträge
 
Delphi 7 Personal
 
#13

AW: Tarifrechner

  Alt 30. Okt 2011, 21:11
Dein Delphi meckert vermutlich immer noch, oder?
Delphi ist glücklicher denn jeh, nur ich nicht mehr!

PS: So, ich klaue dir jetzt mal das Refactoring (falls du sowas besitzt) und nun bennene mal diese Funktionen um.
Wo wirst du wohl weniger Arbeit haben?
.
Also das mit dem result sieht übersichtlicher aus und so aber ich schnalls nicht..würde es dir was ausmachen, mir das an meiner function zu zeigen? dann erhoff ich mir eher, es nachvollziehen zu können..ehm was ist REFACTORING?

PSS: Wenn es zufällig eine gleichnamige Funktion, mit passender Signatur, in einer anderen Unit gibt (die oben in Uses mit drin steht) und du vergißt auch nur einen Namen umzubenennen, dann war's daß, weil den Fehler suchst du erstmal eine Weile.
Das bedeutet, ich passe gut auf, wie ich was benenne?!

EDIT: doch..ich glaub ich habs verstanden, ich probiers mal eben ^^

EDIT2:
Delphi-Quellcode:
function tarif(gewicht:real):byte;
begin
  if gewicht>0 then
begin
  if (gewicht<=10) then
     tarif:=1 else
        if (gewicht<=20) then
            tarif:=2 else
                if (gewicht>20) and (gewicht<=100) then
                   tarif:=3 else
                       tarif:=0
end else
result:=0;
RICHTIG? Erstelle ich jetzt Ausgabe 3, aber wie verweiße ich dann darauf?

Geändert von xsus (30. Okt 2011 um 21:17 Uhr)
  Mit Zitat antworten Zitat