Einige Anfängerfragen

[Mexbuild]

Hallo ihr Programmierer. Ich kann ein Problem nicht so gut erklären, aber ich versuche es mal.

Wir arbeiten derzeit in der Schule mit Delphi 7 und sollen ein Programm erstellen.
Das Layout sieht so aus:

siehe Anhang

In die oberen 3 Edit-Fenster soll man 3 Spünge in Metern eintragen. (Bsp: 1,30 ; 1,40 ; 1,20) Wenn man dann den Bitbn drückt, soll Delphi den höchsten Sprung erkennen und aus diesem die Note berechnen. (Das mit der Note ist jetzt noch nicht wichtig)

Die Variablen heißen:
sprung1, sprung2, sprung3, wsprung: real; (wsprung heißt Weitester Sprung)

Mit welchem Befehl kann ich Delphi so Programmieren, dass es wenn bespielsweise "sprung2" der höchste Wert ist, ihn erkennt und ihn zu "wsprung" umwandelt?

Grüße Max

[edit=Matze]Bild angehängt. Das nächste Mal bitte selbst erledigen und speziell, wenn man dich darum bittet. Mfg, Matze[/edit]

[mkinzler]

Max() aus der Unit Math liefert die den größten 2er Werte also

Delphi-Quellcode:

wsprung := max( max (sprung1,sprung2),sprung3);

[Jelly]

Hallo Max,

herzlich willkommen hier bei uns.

Eine Bitte: lege den Screenshot bitte als link ab. Denk an die armen Modemuser. Oder du lädst den Screenshot einfach als Anhang zu deinem Beitrag.

Das kannst du übrigens nachträglich noch machen durch die Editierfunktion deines Beitrages

[Mexbuild]

Danke für die schnelle Antwort, aber er sagt:
[Fehler] Unit1.pas(54): Undefinierter Bezeichner: 'max'

Was ist da denn falsch?

@ Jelly.
Ok, ich werd mir merken!

[mkinzler]

Hast du Math unter uses eingefügr?

[Mexbuild]

Achso, ne leider nicht. Bin auch nur ein Armer Amateur :lol:

[DGL-luke]

Hallo, die FUnktion MaxValue kann man direkt mit einem array ansteuern:

Delphi-Quellcode:

MaxValue([1,2,3,4]);

[Mexbuild]

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
sprung1:=strtofloat(edit1.text);
sprung2:=strtofloat(edit2.text);
sprung3:=strtofloat(edit3.text);
wsprung := max( max (sprung1,sprung2),sprung3);
weitestersprung.Caption:='Dein weitester Sprung war:'+inttostr(wsprung);

Jetzt sagt er mir:

Delphi-Quellcode:

[Fehler] Unit1.pas(55): Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann

[mkinzler]

Delphi-Quellcode:

weitestersprung.Caption:='Dein weitester Sprung war:'+FloatToStr(wsprung);

[Mexbuild]

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

weitestersprung.Caption:='Dein weitester Sprung war:'+FloatToStr(wsprung);

Mist, ich habe vergessen zu sagen, dass meine Lehrerin noch irgendwas mit strtofloat meinte...
Ah:

Delphi-Quellcode:

sprung1:=strtofloat(edit1.text)