Magische 21

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Jansteger · begonnen am 23. Jun 2013 · letzter Beitrag vom 23. Jun 2013

Vorheriger Beitrag

Nächster Beitrag

Jansteger

Registriert seit: 18. Mär 2013
32 Beiträge

Delphi 7 Personal

Magische 21

23. Jun 2013, 07:46

Hallo,
Ich habe versucht das Spiel "Die Magische 21 zu programmieren" Nur irgendwie funktioniert das nicht richtig.
Hier der Quellcodeausschnitt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var wAugenzahl,

    wSumme,

    wVorher : real;

begin

wAugenzahl:=random(6)+1;

wVorher:=StrToFloat(Edit1.Text);

wSumme:=wVorher + wAugenzahl;

ESumme.Text:=FloatToStr(wSumme);

Edit1.Text:=FloatToStr(wAugenzahl);

end