Fórum Random em combobox #165518

por favor será que alguém sabe como fazer?

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.

Valeu pela ajuda!!! muito obrigado