Fórum Passar parâmetro do tipo Char #316011
14/03/2006
0
quero passar o valor da tecla Enter
Raserafim
Curtir tópico
+ 0Posts
14/03/2006
Adriano Santos
Bom, não entendi direito a sua pergunta, mas veja se é isso
procedure TForm1.MinhaProcedure(Parametro: Char); begin //opa end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin MinhaProcedure(Key); end;
Gostei + 0
14/03/2006
Adriano Santos
Bom, não entendi direito a sua pergunta, mas veja se é isso
procedure TForm1.MinhaProcedure(Parametro: Char); begin //opa end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin MinhaProcedure(Key); end;
Gostei + 0
14/03/2006
Paullsoftware
const _Enter = #13;
Gostei + 0
14/03/2006
Marco Salles
No caso da tecla enter voce deve passar como #32
Assim
procedure MinhaProceduer(Key:Char); begin end;
Para executar a procedure MinhaProcedure
MinhaProcedure(32);
Obs: As vezes em algumas situaçoes de controle e alteraçao e indicado passas por valor , o que muda e na definiçao da MinhaProceudre
Gostei + 0
14/03/2006
Adriano Santos
flw.
Gostei + 0
15/03/2006
Raserafim
eu precisava chamar uma procedure que tinha que tinha que receber um parâmetro do tipo Char.
resolvi criando uma variável do tipo Char, atribuindo o valor a ela, e passando esta variável como parâmetro.
Gostei + 0
15/03/2006
Marco Salles
Eu não vejo necessidade de criar uma variavel so para isto.. Porque não passar o parametro direto... É o Espaço que ser quer passar , entçao passe #32
Para quer fazer var key:Char begin key:=2; MinhaProceduer(Key); //etc... end;
Gostei + 0
18/03/2006
Raserafim
Gostei + 0
18/03/2006
Raserafim
Gostei + 0
18/03/2006
Marco Salles
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)