Spiel: Gedächtnistrainer

[Nicodius]

Delphi-Quellcode:

var
  Form1: TForm1;
  anzZ : Integer = 1;
  zZ : Integer;
implementation

{$R *.dfm}

Function MakeZZ(anzZ : Integer) : String;
var str : String;
    i : Integer;
begin
  str := '';
  if anzZ = 1 then str := IntTostr(random(100))
  else
  begin
    for i := 1 to anzZ do
      str := str + IntTostr(random(100)) + ',';
    delete(Str,Length(Str),1);
  end;
  result := str;

  end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  label1.Caption := MakeZZ(anzZ);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.Text = label1.Caption then
  begin
    Showmessage('Richtig');
    inc(anzZ);
    Label1.Caption := MakeZZ(anzZ);
    edit1.Text := '';
    label1.Visible := true;
  end
  else 
    Showmessage('Falsch   Ergebnis:' + IntToStr(anzZ));
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.visible := false;
  Timer1.Enabled := false;
end;

dürfte gehen - ist natürlich unsauber programmiert aber auf die schnelle gings ned so
gebraucht wird auf dem form 1 button, 1 label, 1 edit und ein timer

grüße Nico