Fórum Qual é o código da tecla de quot;SPAÇOquot; no delphi??? #290940
06/08/2005
0
Nesse código para contar caracteres de 2 Maskedits, qual é o código da tecla de ´SPAÇO´
nessa parte: [b:ee4bb01b6a]caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz´;[/b:ee4bb01b6a] eu coloco oq referente a tecla de espaço?
outra coisa, quanto eu apago todos as caracteres da Maskedit1 fica aparecendo o nº [b:ee4bb01b6a]1[/b:ee4bb01b6a] na Maskedit2 em vez do nº [b:ee4bb01b6a]0[/b:ee4bb01b6a] como resolver issu???
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz´;
var
i, cont: byte;
digitos: string;
begin
cont := 0;
digitos := LowerCase(Trim(Maskedit1Text));
if digitos <> ´´ then
begin
for i := 0 to Length(digitos) do
begin
if Pos(digitos[i], caracteres) <> 0 then
inc(cont);
end;
Maskedit2.Text := IntToStr(cont);
end;
end;nessa parte: [b:ee4bb01b6a]caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz´;[/b:ee4bb01b6a] eu coloco oq referente a tecla de espaço?
outra coisa, quanto eu apago todos as caracteres da Maskedit1 fica aparecendo o nº [b:ee4bb01b6a]1[/b:ee4bb01b6a] na Maskedit2 em vez do nº [b:ee4bb01b6a]0[/b:ee4bb01b6a] como resolver issu???
Duolon
Curtir tópico
+ 0
Responder
Posts
06/08/2005
Marco Salles
Sinceramente amigo não da para entender o que voce quer com esse codigo , porque existe maneiras mais fáceis de fazer isto .. Mas vamos la
Veese código em especial voce deve substiruir a constante
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz´;
Por
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz ´;
simples , incializa o mastEdit2.Text=´´; Sempre que chamar o método
Mas ha meniras mais fáceis de se fazer isto
[b:a06732935b]p:s 32 é o código da tecla Espaço[/b:a06732935b]
Nesse código para contar caracteres de 2 Maskedits, qual é o código da tecla de ´SPAÇO´
Veese código em especial voce deve substiruir a constante
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz´;
Por
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz ´;
outra coisa, quanto eu apago todos as caracteres da Maskedit1 fica aparecendo o nº 1 na Maskedit2 em vez do nº 0 como resolver issu???
simples , incializa o mastEdit2.Text=´´; Sempre que chamar o método
const
caracteres = ´0123456789abcçdefghijklmnopqrstuvwxyz ´;
var
i, cont: byte;
digitos: string;
begin
MaskEdit2.Text:=´´;
cont := 0;
digitos := LowerCase(Trim(Maskedit1.Text));
if digitos <> ´´ then
begin
for i :=1 to Length(digitos) do
begin
if Pos(digitos[i], caracteres)or(Pos(digitos[i],8)) <> 0 then
inc(cont);
end;
Maskedit2.Text := IntToStr(cont);
end;Mas ha meniras mais fáceis de se fazer isto
procedure TForm1.Button2Click(Sender: TObject);
var
i, cont: byte;
begin
MaskEdit2.Text:=´´;
cont := 0;
for i :=1 to Length(MaskEdit1.Text) do
if (MaskEdit1.Text[i] in [´0´..´9´,´a´..´z´,´A´..´Z´,32])then
inc(cont);
Maskedit2.Text := IntToStr(cont);
end;[b:a06732935b]p:s 32 é o código da tecla Espaço[/b:a06732935b]
Responder
Gostei + 0
06/08/2005
Duolon
Valew cara, funcionou perfeitamente... :D
Responder
Gostei + 0
06/08/2005
Guilherme
use esse cod nun edit para descobrir o cod das teclas
showmessage(inttostr(key));
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)