sorteio

Delphi

22/07/2003

tenho 15 nomes de pessoas,como eu tiro um nome desses 15 aleatoriamente.
desde ja agradeço.


Jiu

Jiu

Curtidas 0

Respostas

Fer

Fer

22/07/2003

Use um Random ...

var
i:integer;
const 
str=´1234567890´;
max=2;
begin
Edit1.Text:=´´;
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];


Esse codigo ele pega aleatório de 1 até 99, basta vc pensar um pouco e adapta-lo
falowwww


GOSTEI 0
POSTAR