Einzelnen Beitrag anzeigen

lun87

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

Re: Anfänger sucht Hilfe bei ersten Programierschritten

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