unit Uzahlenraten;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TVersuchsZahl =
array [0..4]
of integer;
TForm1 =
class(TForm)
ratebutton: TButton;
ausgabeedt: TPanel;
eingabeedt: TEdit;
eingabezahlen: TPanel;
Label1: TLabel;
procedure ratebuttonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Zahl : TVersuchsZahl;
implementation
{$R *.dfm}
procedure TForm1.ratebuttonClick(Sender: TObject);
var i, ratezahl, randomzahl, versuchszaehler : integer;
begin
randomzahl := random(20)+1;
ratezahl := strtoint(eingabeedt.text);
If (ratezahl = randomzahl)
or (versuchszaehler = 4)
then
begin
Zahl[i] := ratezahl; -----> Wie mache ich hier einen neustart, so dass der User mehrere Ratemöglichkeiten hat
inc(i);
end;
for i := 0
to 4
do
ShowMessage( IntToStr(Zahl[i]) ); ----> Hier soll er alle Zahlen die geraten worden sind ausgegben werden.
end;
procedure TForm1.FormCreate(Sender: TObject);
var i, ratezahl, versuchszaehler, randomzahl : integer;
begin
i := 0;
Randomize;
end;
end.