Random em combobox
Ae pessoal, é o seguinte:
tenho um combobox com 20 itens;
eu queria q o computador sorteasse um item e deixasse ele selecionado, tipo como se o usuario tivesse escolhido;
sei q tem q usar a propriedade random, mas nao sei usa-la, alguem me ajude por favor.
Valeu!
tenho um combobox com 20 itens;
eu queria q o computador sorteasse um item e deixasse ele selecionado, tipo como se o usuario tivesse escolhido;
sei q tem q usar a propriedade random, mas nao sei usa-la, alguem me ajude por favor.
Valeu!
Ål£×äñðrëðþt
Curtidas 0
Respostas
Ål£×äñðrëðþt
13/06/2003
por favor será que alguém sabe como fazer?
GOSTEI 0
Carlosrm
13/06/2003
Alex,
Reproduza, entenda e modifique. Isso deve funcionar desde o Delphi1.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize(); // ´cria´ os números ´aleatórios´
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// pega um número ´aleatório´ , que varia do primeiro ao último
// item que estiver na propriedade Strings do combobox.
combobox1.ItemIndex := random(combobox1.Items.Count);
end;
end.
{ Coloque na propriedade Strings do combobox: ´Brasil´, ´China´, ´Venezuela´, ´Alemanha´. ou os 20 itens que vc tem.
Obs: Cada país em uma linha (sem as aspas).
Cada vez que clicar no button1, aparecerá um desses países na caixa de texto do combobox, em ordem aleatória. Dependendo do intervalo de tempo entre uma clicada e outra, pode se repetir o mesmo item do combobox.}
Se não ajudou, espero não ter atrapalhado. carlosrm.
Reproduza, entenda e modifique. Isso deve funcionar desde o Delphi1.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize(); // ´cria´ os números ´aleatórios´
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// pega um número ´aleatório´ , que varia do primeiro ao último
// item que estiver na propriedade Strings do combobox.
combobox1.ItemIndex := random(combobox1.Items.Count);
end;
end.
{ Coloque na propriedade Strings do combobox: ´Brasil´, ´China´, ´Venezuela´, ´Alemanha´. ou os 20 itens que vc tem.
Obs: Cada país em uma linha (sem as aspas).
Cada vez que clicar no button1, aparecerá um desses países na caixa de texto do combobox, em ordem aleatória. Dependendo do intervalo de tempo entre uma clicada e outra, pode se repetir o mesmo item do combobox.}
Se não ajudou, espero não ter atrapalhado. carlosrm.
GOSTEI 0
Ål£×äñðrëðþt
13/06/2003
Valeu pela ajuda!!! muito obrigado
GOSTEI 0