Como buscar dados de outra unit?

Delphi

27/10/2003

Como faço para buscar o valor de uma variável de outra unit?
Ex.
Variável texto1 da unit1 tem que ser igual a texto2 de unit2.


Michele

Michele

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

27/10/2003

Pode fazer normalmente, basta declrara aa units em que as variáveis estão no uses da unit que precisa fazer a comparação:

unit Unit1;

interface
  var texto1: string;

implementation
...........


unit Unit2;

interface
  var texto2: string;

implementation
...........


unit Unit3;

interface
  
  uses Unit1, unit2;
  function Compara: Boolean;

implementation

function Compara: Boolean;
begin
  Result := Texto1 = Texto2;
end;
...........


Pode fazer [color=green:68da86cd1d] Result := Unit1.Texto1 = Unit2.Texto2;[/color:68da86cd1d]
se preferir ou se ouver uma variavel com mesmo nome na Unit atual


GOSTEI 0
Michele

Michele

27/10/2003

Não sei se entendi direito, mas pelo que entendi de dentro da unit2 posso atribuir um valor para texto1.
unit Unit2; 

interface 
  var texto2: string; 

implementation
Texto1:=10;

e não entendi o que é

Result := Texto1 = Texto2;



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

27/10/2003

Result := Texto1 = Texto2;

é a mesma coisa que:

if Texto1 = Texto2 then
result := True
else
Result := False;


Result é o resultado da função, é o valor que vai ser passado quando vc chamar: Compara;

mas vc não precisa de uma função, pode colocar o código direto aonde vc irá trata-lo

ex; em um botão:

if Texto1 = texto2 then showMessage(´são iguais´) else ShowMessage(´são diferentes´);


GOSTEI 0
POSTAR