Einzelnen Beitrag anzeigen

lun87

Registriert seit: 19. Nov 2006
29 Beiträge
 
#11

Re: Anfänger sucht Hilfe bei ersten Programierschritten

  Alt 16. Dez 2006, 01:11
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
  Mit Zitat antworten Zitat