Magische 21

[Kalakmul]

@Sir Rufo
Deine Lösung ist sicher fachmännisch, ich hatte aber bei meiner Antwort versucht, den offenbaren Kenntnisstand des Fragestellers mit einzubeziehen. Man kann schlecht alles auf einmal erklären.

[Kalakmul]

Zitat von Jansteger:

Zitat von Kalakmul:

Du solltest die Variablen wSumme und wVorher global (im Variablendeklarationteil des Programms) definieren

Und wie mache ich das?

Über "Implementation" die Variablen so deklarieren, wie du es lokal in der Prozedur gemacht hast.

[Uwe Raabe]

Du kannst auch einfach deinen Original-Code nehmen und wvorher aus ESumme und nicht Edit1 beziehen. Ansonsten war dein Code schon ganz richtig und der Aufgabe völlig angemessen.

DIe Verwendung von Integer statt real und StrToInt/IntToStr statt der Float-Funktionen wurde ja schon angesprochen.

[Uwe Raabe]

Ach ja, und für globale Variablen besteht kein Anlass, da du die relevanten Daten ja schon in den Edit-Feldern speicherst.

Natürlich kann man das Problem auch komplexer oder mit unterschiedlichen Paradigma lösen. Aber wenn der ganze relevante Code in eine Handvoll Zeilen im Button-Click Event passt, ist jedes andere Vorgehen Overkill.

Etwas anderes ist es allerdings, wenn das Projekt erweiterbar sein soll, aber dann fehlen dazu die Spezifikationen. Auch wenn du objektorientierte Programmierung lernen willst, kann man das natürlich auch entsprechend lösen. Aber dafür gibt es bessere Beispiele.

[Helmi]

Auch auf die Gefahr hin, der böse zu sein..
Aber ich glaube es hilft ihm mehr, einfach mal zu zeigen, wie der Code umgeschrieben ausschaut
(also Integer, statt real)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  wAugenzahl: Integer;
  wSumme    : Integer;
  wVorher   : Integer;

begin
  wAugenzahl := random(6) + 1;
  wVorher    := StrToInt(Edit1.Text);
  wSumme     := wVorher + wAugenzahl;

  ESumme.Text := IntToStr(wSumme);
  Edit1.Text := IntToStr(wAugenzahl);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

SirRufo´s Ausführung ist natürlich die Profi-Ausführung (wenn man das so sagen darf)

[Edit]
Delphi7 kennt schon "TryStrToInt"
Dann würde auch folgende Fehlerbehandlung gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  wAugenzahl: Integer;
  wSumme    : Integer;
  wVorher   : Integer;

begin
  If not TryStrtoInt(Edit1.Text, wVorher) then
    begin
      ShowMessage('Edit1 beinhaltet keine Zahl!');
      exit;
    end;

  wAugenzahl := random(6) + 1;
  wSumme     := wVorher + wAugenzahl;

  ESumme.Text := IntToStr(wSumme);
  Edit1.Text := IntToStr(wAugenzahl);
end;

[hathor]

Randomize - Reposition the Random number generator next value

randomize; //z.B. in FormCreate einfügen

http://www.delphibasics.co.uk/RTL.asp?Name=Randomize