Fórum Declaração de variável global #169954

Brother, assim:

declare a variavel em uma unit, no caso unit1.
Ae nas units2,3,4 ..... na clausa uses, coloque a unit1. Na pratica:

unit unit1;

interface

uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs;

type
tform1 = class(tform)
private
{private declarations}
public
{public declarations}
end;

var
//declare aqui a variavel que vai ser usada em todas as outras units
form1: tform1;
x: tdatetime;

Nas outras units fica assim dai :

unit unit2;

interface

uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs, unit1;//Repare q eu adicionei a unit1 aqui;

type
tform2 = class(tform)
private
{private declarations}
public
{public declarations}
end;

var
form2: tform2;

implemation
{$r *.DFM}

// observe a variavel x declarada na unit1, na unit2 sendo compilada sem ser declarada

procedure tform2.formcreate(sender: tobject);
begin
x:= now;
showmessage(datetimetoStr(x));
end;

end.

Obs: a mensagem ira aparecer quando vc abrir o form2.

Espero ter ajudado, qualquer coisa me da um toque no ICQ, blz brother???
Um abraço, Henry.