Fórum Tem como fazer Alfabeto SERIAL? #396233
24/02/2011
0
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
Curtir tópico
+ 0Posts
24/02/2011
Leonardo Xavier
Gostei + 0
24/02/2011
Weslen Polizelli
Gostei + 0
24/02/2011
Weslen Polizelli
Gostei + 0
24/02/2011
Leonardo Xavier
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
24/02/2011
Weslen Polizelli
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
24/02/2011
Weslen Polizelli
Gostei + 0
24/02/2011
Leonardo Xavier
//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
24/02/2011
Leonardo Xavier
//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
24/02/2011
Weslen Polizelli
Gostei + 0
24/02/2011
Weslen Polizelli
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)