Uma ajuda com urgência!!!!!!!!!!!!!!!!!!

Delphi

02/01/2004

Ola amigos, é o seguinte:

Tenho uma tabela com o campo CODIGO em string e gostaria de gravar nele forma aleatórias com letras e numeros. Estou usando o seguinte código:

var
 i: integer;
const
 str = ´0123456789ABCDE´;
 max = 4;
begin
 Tabela.Insert;
 for i:= 1 to max do
 begin
  TabelaCODIGO.Text:=  TabelaCODIGO.Text + str[random(length(str)) + 1];
 end;


No OnNewRecord eu coloco esse codigo, toda vez que vou inserir ele gera a combinação e mostra no DBEdit. Até ai ok. Porém ele repete as vezes o mesmo numero, entao quero que seja feita uma busca do mesmo numero gerado antes de mostrar no DBEdit. Caso seja igual ele gere um novo, se nao for igual mostre.

Gostaria do CÓDIGO FONTE desda função com urgencia se possivel, pois so me deram dicas, mas nao saiu do papel. Quero o codigo mesmo escrito.

Um abraço

:D


Njunior

Njunior

Curtidas 0

Respostas

Hemsombra

Hemsombra

02/01/2004

Experimenta assim (Randomize) :arrow:

var
i: integer;
const
str = ´0123456789ABCDE´;
max = 4;
begin
Tabela.Insert;
for i:= 1 to max do
begin
Randomize;
TabelaCODIGO.Text:= TabelaCODIGO.Text + str[random(length(str)) + 1];
end;


GOSTEI 0
POSTAR