Como Pegar o valor de uma variavel de uma outra unit ?

26/11/2005

blz amigos,

Como fazer para pegar o valor de uma variavel que está em uma outra unit ?
Ex.: na unit1 tenho uma variavel chamado A que recebe o valor da variavel B que
se encontra na Unit2.


abraços.
Pestana.


Pestana

Respostas

26/11/2005

Raserafim

primeiramente vc precisa declarar a variável como global. isso é feito declarando na cessão interface. é o VAR que fica logo acima do implementation, onde fica declarada a variável com o nome do for,
agora basta ir no outro form e declarar a unit do primeiro form.

form1
unit Uform1;

interface
...
...
var
  form1: Tform1;
  A: integer;

implementation
...  


form2
unit Uform2;

interface
...
...
var
  form2: Tform2;
  B: integer;

implementation

uses Uform1;
...  


para atribuir o valor. no form2...
  form1.A := B;



Responder Citar

28/11/2005

Pestana

blz amigo,

deu certo o que eu estava querendo.


abraços!
Pestana.


Responder Citar