Opa, foi mau! Vou aproveitar e melhorar este código!
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sena: integer;
Lista: TList;
begin
Randomize;
ListBox1.Items.Clear;
Lista := TList.Create;
try
while Lista.Count < 15 do
begin
repeat
sena := Random(100)
until Lista.IndexOf(Pointer(sena)) = -1;
Lista.Add(Pointer(sena));
ListBox1.Items.Add(IntToStr(sena));
end;
finally
Lista.Free;
end;
end;
Estude-o e adapte-o às suas necessidades.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Sun, 9 Nov 2008 22:00:58 +0000
Subject: [delphi-br] Re: gerar 15 numeros aleatórios
Opa
ele gera o seguinte erro ao compilar
[Error] Unit1.pas(40): Assignment to FOR-Loop variable 'sena'
[Error] Unit1.pas(43): ')' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
pq este erro?
> Se for pra não ter repetições, eu usaria TList ao invés de
TStringList, e da seguinte maneira:
>
> procedure TForm1.BitBtn1Click(Sender: TObject);
> var
> sena: Integer;
> Lista: TList;
> Begin
> Randomize;
> ListBox1.Items.Clear;
> Lista := TList.Create;
> try
> for sena := 1 to 15 do
> begin
> repeat
> sena := Random(100)
> until Lista.IndexOf(Pointer(sena)) = -1;
> Lista.Add(Pointer(sena));
> ListBox1.Items.Add(sena);
> end;
> finally
> Lista.Free;
> end;
> end;
_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver
offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
