Fórum dica de random #170576
21/07/2003
0
gostaria de saber como eu faço para sortear 300 numeros de processos juridicos,em quantidades iguais para 15 procuradores.
será que vc pode me ajudar,com dicas,alguma fonte de consulta,alguma função que vc conheça ou tenha qu faça algo parecido.
desde ja agradeço !!!!!!1
será que vc pode me ajudar,com dicas,alguma fonte de consulta,alguma função que vc conheça ou tenha qu faça algo parecido.
desde ja agradeço !!!!!!1
Jiu
Curtir tópico
+ 0
Responder
Posts
21/07/2003
Emacruz
Não entendi direito sua pergunta.. porque vc não tenta algo do tipo.. eh simples mas pelo q eu entendi deve funcionar..
function tFrmPrincipal.Sort : String ;
var ct : Integer ;
begin
Result := ´´ ;
Randomize;
for ct := 1 to 15 do Result := Result + IntToStr( Random(9) ) ;
end ;
Falow,
Emanuel.
function tFrmPrincipal.Sort : String ;
var ct : Integer ;
begin
Result := ´´ ;
Randomize;
for ct := 1 to 15 do Result := Result + IntToStr( Random(9) ) ;
end ;
Falow,
Emanuel.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)