Zmienna globalna

Jak zrobić zmienną, która będzie dostępna w wszystkich modułach(w DELPHI). W książkach o programowaniu piszą, że pod public, ale to nie działa...--DELPHI 6
-
[email protected]

ja daje w private i mi dziala.sprobuj :)--Lopi22

Próbowałem do private ale niestety też nie chodzi. Dla całego modułu to wiem jak (pod napisem {$R *.DFM}), ale dla wszystkich modułów mi nie chodzi.--DELPHI 6
-
[email protected]

type
TForm1 = class(TForm)
{...}
private
{ Private declarations }
public
a : integer;
end;

żeby się odwolać do tej deklaracji potrzebujesz takiego czegoś

Form1.a := 5;

rozumiesz dlaczego ?? bo w type zdeklarowałeś wartość TForm1 - ajak by było TForm2

to

form2.a := 5; kapujesz -to jest zmienna globlana - a jak coś to: spróbuj troszeczkę niżej i wsadzić to do

deklaracji

Var

Nieco przemadrzalych uzupelnien from PQ

&gtżeby się odwolać do tej deklaracji potrzebujesz takiego czegoś
&gt
&gtForm1.a := 5;
&gt
&gtrozumiesz dlaczego ?? bo w type zdeklarowałeś wartość TForm1 -

a co wazniejsze w var masz Form1:TForm1;

no i jeszcze w tym module, ktory ma uzywac tej zmienej musisz dolaczyc Unit1 do uses (zakladam, ze Form1 jest w Unit1)

--Pawel {Delphi6 }

Po pierwsze: F1

SPOX. Dzięki w końcu działa. {brawo} --DELPHI 6
-
[email protected]