Qual é o código da tecla de quot;SPAÇOquot; no delphi???

Delphi

06/08/2005

Nesse código para contar caracteres de 2 Maskedits, qual é o código da tecla de ´SPAÇO´

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

Duolon

Curtidas 0

Respostas

Marco Salles

Marco Salles

06/08/2005

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

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]


GOSTEI 0
Duolon

Duolon

06/08/2005

Valew cara, funcionou perfeitamente... :D


GOSTEI 0
Guilherme

Guilherme

06/08/2005

use esse cod nun edit para descobrir o cod das teclas 


showmessage(inttostr(key));



GOSTEI 0
POSTAR