Delphi Lotto HILFE´!!! - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

Lotto HILFE´!!!

Ein Thema von school- delphi · begonnen am 9. Dez 2004 · letzter Beitrag vom 18. Dez 2004

Vorheriger Beitrag

Nächster Beitrag

school- delphi

Registriert seit: 9. Dez 2004
13 Beiträge

Re: Lotto HILFE´!!!

9. Dez 2004, 10:32

Hallo,
ich versuch das schon selber, aber das ist immer vollkommen unermutigend, wenn das dauenrnd nicht klappt. Also das hier hab ich schon mal, aber naja

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  lottozahl: set of byte;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i,y: integer;

begin

i:= 0;

for i:= 1 to 6 DO

Y:= random(49)+1;

ListBox1.Items.Add(inttostr(y));

end;