Tem como fazer Alfabeto SERIAL?
Eae galera td bom?
Eu Gostaria q vcs me ajuda-se ah fazer um controle serial com letras
tipo sempre quando eu pedir um novo aparecer A invez de 1...
por exemplo:
o codigo ia ser assim 1
2
3
4
5
Maiss eu quero q fike assimmm
A
B
C
D
E
F
G
e quando terminar o alfabeto, continuar com simbolos.. Entederam??
Vlww galeraaa!! Espero q me ajudem
Eu Gostaria q vcs me ajuda-se ah fazer um controle serial com letras
tipo sempre quando eu pedir um novo aparecer A invez de 1...
por exemplo:
o codigo ia ser assim 1
2
3
4
5
Maiss eu quero q fike assimmm
A
B
C
D
E
F
G
e quando terminar o alfabeto, continuar com simbolos.. Entederam??
Vlww galeraaa!! Espero q me ajudem
Weslen Polizelli
Curtidas 0
Respostas
Leonardo Xavier
24/02/2011
Cara isso é assim... Você vai ter um vetor com as letras do alfabeto, e outro com os numeros que vc deseja. E ai vc vai ver como vc quer tratar este tipo de controle. Seu serial vai ter quantos digitos (length) ? e quando vc tiver isso em mente vc pode tratar o seu serial de maneira mais abrangente.
GOSTEI 0
Weslen Polizelli
24/02/2011
Kara eu quero simplismente trokar os numeros por letra]!!
GOSTEI 0
Weslen Polizelli
24/02/2011
Abandonado akii em galera :S:S:S:S
GOSTEI 0
Leonardo Xavier
24/02/2011
Cara para isso vejo que vc teria que ter varios IFs....( isto no caso de vc não querer trabalhar com vetores)
E sobre o que vc disse sobre "abandonado" é que boa parte das pessoas que colaboram com este fórum, tambem trablaham em diversas áreas. Por exemplo a mim, eu trabalho com TI e nao tenho tanto tempo assim para atender todos ao memso tempo. Mas em horários alternados entro aqui para ajudar o pessoal a resolver suas dúvidas assim como estou fazendo com vc agora. Abraços
if seucampo=1 then begin
showmessage('A');
if seucampo=2 then begin
Showmessage('B');
.
.
.
.
E sobre o que vc disse sobre "abandonado" é que boa parte das pessoas que colaboram com este fórum, tambem trablaham em diversas áreas. Por exemplo a mim, eu trabalho com TI e nao tenho tanto tempo assim para atender todos ao memso tempo. Mas em horários alternados entro aqui para ajudar o pessoal a resolver suas dúvidas assim como estou fazendo com vc agora. Abraços
GOSTEI 0
Weslen Polizelli
24/02/2011
Cara eu quero colokar isso em um cadastro,eu tenho esses campos
ABC | Codigo
A 1
B 2
C 3
D 4
Queria fazer aassim para nao colar numero entende? Pra nao fikar q nem o codigo! Vlw
ABC | Codigo
A 1
B 2
C 3
D 4
Queria fazer aassim para nao colar numero entende? Pra nao fikar q nem o codigo! Vlw
GOSTEI 0
Weslen Polizelli
24/02/2011
Vlww eu seii disso, desculpaa ae ^^
GOSTEI 0
Leonardo Xavier
24/02/2011
Resolvi teu problema...Esperoq que seu conseito deste fórum seja melhor depois disso. Cara vo te pedir somente uma coisa, Faça propagando de nosso foruma para seus amigos e quando precisar de alguma divida volte para este fórum. Pois eu parei o meu trablaho somente para te atender. Abraços
//colocar dois Edit(s) em seu formulário
//colocar um botão
function trocaporletra(texto: string): string; stdcall;
const
numeros = '1234567890';
chares='abcdefghijklmnopqrstuvxyz~!@#$%^&*()_+=-{}":>?<,./;[]';
var
x: Integer;
begin
for x := 1 to Length(texto) do
if Pos(texto[x], numeros) <> 0 then begin
SHOWMESSAGE('Foi encontrado um numero na posição: '+inttostr(x));
result := result + chares[x] ;
end else begin
result := result + texto[x];
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:= trocaporletra(Edit2.Text);
end;
GOSTEI 0
Leonardo Xavier
24/02/2011
Resolvi teu problema...Esperoq que seu conseito deste fórum seja melhor depois disso. Cara vo te pedir somente uma coisa, Faça propagando de nosso foruma para seus amigos e quando precisar de alguma divida volte para este fórum. Pois eu parei o meu trablaho somente para te atender. Abraços
//colocar dois Edit(s) em seu formulário
//colocar um botão
//o edit1 é o edit que recebe tanto letras como numeros
//o edit2 apresenta o conteudo do edit1 e onde era numero aparecem as letras
//conforme a ordem da cons chares
function trocaporletra(texto: string): string; stdcall;
const
numeros = '1234567890';
chares='abcdefghijklmnopqrstuvxyz~!@#$%^&*()_+=-{}":>?<,./;[]';
var
x: Integer;
begin
for x := 1 to Length(texto) do
if Pos(texto[x], numeros) <> 0 then begin
SHOWMESSAGE('Foi encontrado um numero na posição: '+inttostr(x));
result := result + chares[x] ;
end else begin
result := result + texto[x];
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:= trocaporletra(Edit1.Text);
end;
GOSTEI 0
Weslen Polizelli
24/02/2011
Vou divulgar sim.. vlw agora ta resolvido abrass
GOSTEI 0
Weslen Polizelli
24/02/2011
Esse Forum é notaaaa 1000000000000000000000000000000000000000000000000000
GOSTEI 0