Passagem de parâmetro por referência

Delphi

17/11/2006

Alguém sabe me dizer se é possível criar uma função que tenha um parâmetro do tipo Text passado por referência??

Tentei da seguinte forma mas o Delphi não aceita:

Function RetornaNome(Var Nome : Text);
begin
end;

Chamando a função:

RetornaNome(Edit1.Text);


Dessa forma eu poderia passar como parâmetro tanto um Edit como um DBEdit. Alguem tem uma sugestão


Vispo

Vispo

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

17/11/2006

Você pode criar somente uma procedure, e passar como parâmetro um TComponent, algo do tipo:

procedure TForm1.RetornaNome(nome: TComponent);
begin
if nome.ClassType = TEdit then
    TEdit(nome).Text:=´Teste´;
if nome.ClassType = TDBEdit then
    TDBEdit(nome).Text:=´Teste´;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RetornaNome(Edit1);
RetornaNome(DBEdit1);
end;


Apenas uma idéia de como se fazer...


GOSTEI 0
Vispo

Vispo

17/11/2006

obrigado pela dica marcio...resolveu meu problema!

Abraço!


GOSTEI 0
Rodc

Rodc

17/11/2006

Mas não era só receber um componente do tipo String? (o tipo Text não existe)

Function RetornaNome(Var Nome : [b]String[/b]); 
begin 
end; 

Chamando a função: 

RetornaNome(Edit1.Text);



GOSTEI 0
POSTAR