Passando String

Delphi

06/05/2005

Olá tenho um formulário (A) que abro um formulario (B), passando para uma váriavel do (B) nome de um edit do (A) que receberá uma string!

Assim:

Tela4.NOMERETORNO := ´Frm_MovLan.Edit2.Text´;
Frm_Pesquisa.ShowModal;

No formulário (B) faço uma pesquisa e tenho que jogar para o Edit do (A) que seu nome esta dentro da variável NOMERETORNO o resultado!

Como faço isso?


Marciobrignol

Marciobrignol

Curtidas 0

Respostas

Bruno Belchior

Bruno Belchior

06/05/2005

for Cont := 0 to FormA.Components.ComponentCount-1 do
  with Components[Cont] do
    if ClassType = TEdit and Name = ´NomedoEdit´ then
      (Componensts[Cont] as TEdit).Text := SuaVariavel;



GOSTEI 0
Marciobrignol

Marciobrignol

06/05/2005

Mas o nome do edit e o nome do formulario estão contidos em váriiaveis.. e nesse caso que tu colocou ai eu ja saberia o nome do formulario


GOSTEI 0
Marciobrignol

Marciobrignol

06/05/2005

coloquei assim ó

for Cont := 0 to NOMEFORMULARIO.Components.ComponentCount-1 do
with Components[Cont] do
if ClassType = TEdit and Name = NOMERETORNO then
(Componensts[Cont] as TEdit).Text := Edit2.Text;

Não funcionou, deu erro!


GOSTEI 0
Andremuller

Andremuller

06/05/2005

Não faça dessa forma, isso é referência circular.

Crie uma propriedade em B que é preenchida no que você fecha o form
Então você faz A acessar essa propriedade.

Não pode ser assim?


GOSTEI 0
Marciobrignol

Marciobrignol

06/05/2005

perfeito.. funcionou mas de outro modo.. muito grato pela ajuda..


GOSTEI 0
POSTAR