Passagem de par�metro por refer�ncia

Question

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:[code:1:0f1b99ce5e]Function RetornaNome...

Marcio.theis · Answer

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...

Vispo · Answer

obrigado pela dica marcio...resolveu meu problema!Abra�o!...

Rodc · Answer

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);

F�rum Passagem de par�metro por refer�ncia #333287