DAs ist ja cool, dass hier wirklich versucht wird mir zu helfen. Meist sagen dann die Leute also bitte das schaffste doch alleine oder so... aber das ist gut kleine tipps und der rest muss von selbst kommen. Thanks an alle auch wenn ich immer noch net weiss, wie ich ihm sage, wie er mehrere Versuche bekommt xD sry...-.- ist halb 2 nachts *ausrede* ^^
Delphi-Quellcode:
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;
versuchszaehler : TVersuchsZahl;
implementation
{$R *.dfm}
procedure TForm1.ratebuttonClick(Sender: TObject);
var i, ratezahl, randomzahl, versuchszaehler : integer;
begin
If (ratezahl = randomzahl) or (versuchszaehler = 4) then
ratezahl[versuchszaehler] := ratezahl;
inc(versuchszaehler);
for versuchszaehler := 0 to 4 do ausgabeedt.Caption(inttostr(ratezahl[versuchszaehler]));
end;
procedure TForm1.FormCreate(Sender: TObject);
var i, ratezahl, versuchszaehler, randomzahl : integer;
begin
ratezahl := eingabeedt.text;
versuchszaehler := 0;
Randomize;
randomzahl := random(20)+1;
end;
end.
mein letzter Versuch bringt nichts mehr heute^^ Nacht Leute... Irgendwie verstehe ich da wat net... -.-
mfg
Lun87