Passar parâmetro do tipo Char

Delphi

14/03/2006

Como faço para passar um parâmetro em uma procedure do tipo Char?

quero passar o valor da tecla Enter


Raserafim

Raserafim

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

14/03/2006

Como faço para passar um parâmetro em uma procedure do tipo Char? quero passar o valor da tecla Enter


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
Adriano Santos

Adriano Santos

14/03/2006

Como faço para passar um parâmetro em uma procedure do tipo Char? quero passar o valor da tecla Enter


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
Paullsoftware

Paullsoftware

14/03/2006

se entendi bem crie uma constante global do tipo char...

const 
  _Enter = #13;



GOSTEI 0
Marco Salles

Marco Salles

14/03/2006

Como faço para passar um parâmetro em uma procedure do tipo Char? quero passar o valor da tecla Enter


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
Adriano Santos

Adriano Santos

14/03/2006

Nossa desculpem, minha msg foi duas vezes...deu erro aqui.

flw.


GOSTEI 0
Raserafim

Raserafim

14/03/2006

ja consegui resolver pessoal.
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
Marco Salles

Marco Salles

14/03/2006

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.


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
Raserafim

Raserafim

14/03/2006

a variável foi necessário pois passando como parâmetro #13 dava erro. atribuindo primeiramente a uma variável deu certo.


GOSTEI 0
Raserafim

Raserafim

14/03/2006

só concertando uma informação dada pelo colega Marco Salles: a tecla enter é #13.


GOSTEI 0
Marco Salles

Marco Salles

14/03/2006

É verdade .... Eu estava com a cabeça na teca Espaço


GOSTEI 0
POSTAR