Allgemeine Fragen zu Delphi

[mkinzler]

Du musst wie ich schon vorgeschlagen habe Überlegen, wie du als Mensch diese Aufgabe lösen würdest und den obigen Code ansehen, dann wirst du sehen das der scho 2 der 4 Möglichkeiten der Aufgabe abdeckt und dann musst du ihn nur um die 2 fehlenden ergänzen.

[ChriB]

Ich bin auch neu hier und auch ist mir Delphi neu :wink:
Naja, ich hatte doch erklärt, was ich meine.
Die Zuweisung des Edit1 an i ist irgendwie komisch...
Was soll denn das Edit machen?

Vielleicht die Frage nur als Randfrage eines Unwissenden, der lernen will sehen :roll:

[andiak]

meinst du jetzt deinen mit der function oder der procedure von mir?

Edit ist dafür da die anzahl der klicks anzuzeigen warum mein lehrer nen edit feld genommen hat ka panel wär wohl passender

[mkinzler]

@ChriB: Ja der Code macht nicht was seine Ausgaben sagen, was ich schon unter #12 geschrieben habe.

[ChriB]

Zitat:

Zitat von andiak

meinst du jetzt deinen mit der function oder der procedure von mir?

Edit ist dafür da die anzahl der klicks anzuzeigen warum mein lehrer nen edit feld genommen hat ka panel wär wohl passender

Genau, ich meinte das, was ich zitiert hatte.
Jetzt ist es verständlich, danke fürs erklären :thumb:

[mkinzler]

Meine Funktion, dein deine Prozedur ja nicht.

[andiak]

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?

[mkinzler]

der letzte Fall >25 km fehlt noch

[andiak]

in der aufgabenstellung steht garnichts mehr von >25km
"7. Ein Baumarkt liefert bei Entfernungen unter 5km für 10€, darüber für 5€ Festpreis plus 1€ je gefahrenem Kilometer, jedoch höchstens 30€ Gesamtkosten. Zustellungen weiter als 50km werden nicht vorgenommen.
Schreiben Sie Delphi-Code für die Methode BerechnePreis, die in der booleschen Variablen ok vermerken soll, ob die Lieferung erfolgen kann, und in diesem Falle in lieferpreis : integer den Preis ablegt.
"
oder?

[mkinzler]

Doch: höchstenst 30 € = 25km.