Declara��o de campos dentro de uma classe

Question

Tenho 2 forms: Form1 e Form2. No Form1 eu declaro minhas classes e no Form2 eu Instancio-as. Eu queria declarar um m�todo que fosse lido dois par�metros de dois Edits. Ent�o no Form2 quando eu colocar...

Brunodsr · Answer

Bom, pelo que eu entendi, vc quer que a sua classe j� saiba de quem deve ler autom�ticamente, sem que vc tenha que passar o valor do componente.

Se for isso. Vc pode definir nomes de componente padr�es para serem usados pela classe e utilizar a fun��o findcomponent. Isso pra o caso de vc ter mais de um edit em tela e ferrar tudo. Vou fazer um exemplo a� proc�:

Declara��o da classe:

  teste = class
    bruno:string;
    constructor create(sender:TComponent);
    procedure AtribuiValores(sender:TForm);
  end;

Implementa��o dos procedimentos da classe:

//No construtor da classe eu passo o formul�rio que t� instanciando ela
constructor teste.create(sender:TComponent);
begin
  AtribuiValores(TForm(sender));
end;

procedure teste.AtribuiValores(sender:TForm);
begin
  //Sabendo quem � o formul�rio, eu procuro o meu componente l�
  //e atribuo o valor da minha vari�vel ao valor do componente
  if Assign(sender.FindComponent(�bruno�)) then
    bruno := TEdit(sender.FindComponent(�bruno�)).Text;
end;

Agora o form que tem o meu componente usando a minha classe;

//Nesse caso eu tenho um edit na tela chamado �bruno�.. 
procedure TForm1.Button1Click(Sender: TObject);
var t:teste;
begin
  t:= teste.create(self);
  showmessage(t.bruno);
end;

Para ficar mais legal, vc pode ao inv�s de engessar o nome dos componentes, escrever em arquivos INI o nome dos componentes que vc quer atribuir o valor. Da� fica din�mico.

Espero ter ajudado.