Einzelnen Beitrag anzeigen

lun87

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

Re: Anfänger sucht Hilfe bei ersten Programierschritten

  Alt 16. Dez 2006, 12:43
So siehts momentan aus:

Delphi-Quellcode:
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.

mfg
lun87
  Mit Zitat antworten Zitat