Please help me on Delphi.  I am a new comer to this website and to Delphi.  The following is the question:

I need to create an array of 6 lotto numbers. The numbers should be between 1 and 40 and I am not allowed to put into the array any number that is already in it. Hint: I am using an array of 6 numbers so that's a loop generate a temporary number
while that numbers is already in the lotto array regenerate it
put my temporary number in the current slot of the array.

Cheers,

Tony

hi,

please try this

var
iarray : array[1..6] of integer;
ii, jj, kk, anum : integer;
begin
iarray[1] := random(40) 1; // generate the 1st random number
for ii := 2 to 6 do begin // generate other numbers
kk :=1;
while kk=1 do begin
anum := random(40) 1; // generate a number
for jj := 1 to ii-1 do begin
if iarray[jj]=anum then break; // test if anum is in the current iarray
end;
if jj=ii then begin // anum is not in the current iarray
iarray[ii] := anum; // add anum to iarray
kk := 2; // get out from the while loop to process the next number
end;
end;
end;
end;

===================引 用 turbomen 文 章===================
Please help me on Delphi. I am a new comer to this website and to Delphi. The following is the question:

I need to create an array of 6 lotto numbers. The numbers should be between 1 and 40 and I am not allowed to put into the array any number that is already in it. Hint: I am using an array of 6 numbers so that's a loop generate a temporary number
while that numbers is already in the lotto array regenerate it
put my temporary number in the current slot of the array.

Cheers,

Tony

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

Hi st33chen,

Thank you for your kind help. But I do not know why it does not work.

Cheers,

Tony
===================引 用 st33chen 文 章===================
hi,

please try this

var
iarray : array[7] of integer;
ii, jj, kk, anum : integer;
begin
iarray[1] := random(40) 1; // generate the 1st random number
for ii := 2 to 6 do begin // generate other numbers
kk :=1;
while kk=1 do begin
anum := random(40) 1; // generate a number
for jj := 1 to ii-1 do begin
if iarray[jj]=anum then break; // test if anum is in the current iarray
end;
if jj=ii then begin // anum is not in the current iarray
iarray[ii] := anum; // add anum to iarray
kk := 2; // get out from the while loop to process the next number
end;
end;
end;
end;

===================引 用 turbomen 文 章===================
Please help me on Delphi. I am a new comer to this website and to Delphi. The following is the question:

I need to create an array of 6 lotto numbers. The numbers should be between 1 and 40 and I am not allowed to put into the array any number that is already in it. Hint: I am using an array of 6 numbers so that's a loop generate a temporary number
while that numbers is already in the lotto array regenerate it
put my temporary number in the current slot of the array.

Cheers,

Tony