Criar sequencia de letras
11/02/2003
0
e ai galera beleza alguem sabe me responder como eu faco pra criar uma sequencia de letras que se alteram uma a uma e sempre de 6 caracteres ou mais tipo:
aaaaaa
aaaaab
aaaaac
aaaaad
aaaaae
e assim por diante ja me deram sugestoes mas sao muitas trabalhosas tipo: atribuir um números a cada letra, o que seria dificil e muito cansativo. então se alguem tiver uma funcao, ou dica alguma coisa que diga como eu posso fazer isso eu agradeco.
valeu....
aaaaaa
aaaaab
aaaaac
aaaaad
aaaaae
e assim por diante ja me deram sugestoes mas sao muitas trabalhosas tipo: atribuir um números a cada letra, o que seria dificil e muito cansativo. então se alguem tiver uma funcao, ou dica alguma coisa que diga como eu posso fazer isso eu agradeco.
valeu....
Toshio
Curtir tópico
+ 0
Responder
Posts
11/02/2003
Delphi1
Delphi1
Olá, alguém poderia me ajudar.
Tenho uma cadastro de clientes e um de produtos.
Quando salvo o produto ele me dá o seguinte erro:
Raised exception Class Edatabase with
is not a valid Floating Point value for field (PesoFinal_Prod) é o nome do campo que vai o resultado, porque é um calculo de produto.
Também estou com um probleminha no cadastro de cliente, toda vez que desligo o computado, o banco de dados vem zerado, porque.
Agradeço a atenção e obrigado.
meu e-mail é: ma-silverio@bol.com.br
Olá, alguém poderia me ajudar.
Tenho uma cadastro de clientes e um de produtos.
Quando salvo o produto ele me dá o seguinte erro:
Raised exception Class Edatabase with
is not a valid Floating Point value for field (PesoFinal_Prod) é o nome do campo que vai o resultado, porque é um calculo de produto.
Também estou com um probleminha no cadastro de cliente, toda vez que desligo o computado, o banco de dados vem zerado, porque.
Agradeço a atenção e obrigado.
meu e-mail é: ma-silverio@bol.com.br
Responder
12/02/2003
Luciano Pimenta®
Sobre a seq de letras tente assim:
var
i:integer;
const
str=´ABCDEFGHIJKLMNOPQRSTUVWXYZ´;
max=6; // quantidade de letras
begin
Edit1.Text:=´´;
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
T+
:)
var
i:integer;
const
str=´ABCDEFGHIJKLMNOPQRSTUVWXYZ´;
max=6; // quantidade de letras
begin
Edit1.Text:=´´;
for i:=1 to max do
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
T+
:)
Responder
Clique aqui para fazer login e interagir na Comunidade :)
Inserção de url
Descrição
Url
