Gut habs jez auf das hier reduziert:
Delphi-Quellcode:
type
TZahl = 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 : TZahl;
implementation
{$R *.dfm}
procedure TForm1.ratebuttonClick(Sender: TObject);
var i , eingabezahl, ratezahl: integer;
begin
i := 0;
repeat
If i = 4 then
showmessage('Tja war wohl nichts!')
else
eingabezahl := strtoint(eingabeedt.text);
Zahl[i] := eingabezahl; -----> neue Chance einen neuen WErt einzugeben, dabei soll alter Wert aber behalten werden !!!
inc(i);
until (eingabezahl = ratezahl) or (i = 4);
end;
procedure TForm1.FormCreate(Sender: TObject);
var i, zufallszahl : integer;
begin
Randomize;
zufallszahl := random(20)+1;
eingabeedt.text := '';
end;
end.
Ich muss ihm doch jetzt noch sagen, dass er in der repeat schleife dem benutzer immer wieder die chance gibt eine neue zahl einzugeben? wie mache ich das ? vielmehr wie sage ich ihm behalte die erste zahl gib ihm ne neue chance ?
mfg
lun87