globale variable

[Privateer3000]

Hi Leuts,

wenn ich in zB: Form1 eine var posit:integer;
deklariere steht sie in Form2 nicht zu Verfügung.
Obwohl in den Units die Forms "sich sehen".Ich meine in Form1 steht
uses: Unit1 usw...
Warum kann ich in Form2 nicht auf sie zugreifen??

[Christian Seehase]

Moin Privateer,

wo hast Du die Variable denn deklariert?

[Chewie]

Steht die Unit in der uses-Klausel im interface-Teil oder im implementation-Teil? Falls sie im implementation-Teil steht, musst du den Namen der Unit angeben, wenn du sie aus einer anderen Unit aufrufst.

[sakura]

Zitat:

Zitat von Chewie

Falls sie im implementation-Teil steht, musst du den Namen der Unit angeben, wenn du sie aus einer anderen Unit aufrufst.

Falsch, wenn Du die Variabel im implementation-Teil deklariert hast, dann ist diese ausserhalb der UNIT, in welcher diese deklariert wurde nicht verfügbar. Wenn die Variable auch in anderen Units verfügbar sein soll, dann musst Du diese im interface-Teil deklarieren.

[Privateer3000]

Moin Leuts,

in diesem Teil steht das:

Code:

private
    { Private-Deklarationen }
    public

  end;

var
  Form1: TForm1;
  blinker,Anzahlsicht,posit,protset: integer;
  BGFarbindex,FontFarbindex: String;
  puff,Durch,Differ: Currency;
  Nexttick: DWORD;
  Comma: Boolean=false;


implementation

uses Unit2,Unit3,Unit4, Unit5;

{$R *.DFM}

und eigentlich muss ich auf all diese Variablen von jedem Form zugreifen,
da hier GRundeinstelluingen stehen.Momentan mach ich das nur mit Tricks, weil ich es nicht anders weiss.

[Christian Seehase]

Moin Privateer,

da man sich unter Umständen leicht mal Zirkelbezüge zwischen den Units einhandeln kann, fände ich es eine gute Idee diese Dinge (in diesem Falle die Variablendeklarationen), die global von allen Units aus erreichbar sein müssen in eine eigens dafür erstellte Unit auszulagern.
Die kann dann, im interface Abschnitt, in jede Unit eingebunden werden, die's braucht.

[Privateer3000]

Jetzt hast du den Finger genau in eine Wunde gelegt.
Ich habe schon öfters probiert Proceduren uä. auszulagern.
Ich habe es nie geschafft.Immer ging irgendwas nicht.
Auch wenn ich mich an Tuts gehalten habe, habe ich es nicht verstanden.
Wie geht sowas denn nun`???

[Hansa]

Hi,

Zitat:

Zitat von Privateer3000

Ich habe schon öfters probiert Proceduren uä. auszulagern.Ich habe es nie geschafft.

Public : für alle zugänglich (aber innerhalb des Projekts). Vielleicht ist es nur die USES Liste :?:

Guß
Hansa

[Christian Seehase]

Moin Privateer,

oder aber Du hast vergessen im Interfaceabschnitt die Funktionsaufrufe auch noch zu deklarieren. Was da nicht steht, kann auch von keiner anderen Unit verwendet werden.

z.B.

Delphi-Quellcode:

Unit Test

//....

procedure MeineAllgemeineProzedur;

implementation

procedure MeineAllgemeineProzedur;
begin
  //...
end;

Überall, wo die Unit Test eingebunden wird, sollte man jetzt auf die Prozedure MeineAllgemeineProzedur zugreifen können.

[Privateer3000]

mir ging es eigetnlich um die Variablen

Code:

var
  Form1: TForm1;
  blinker,Anzahlsicht,posit,protset: integer;
  BGFarbindex,FontFarbindex: String;
  puff,Durch,Differ: Currency;
  Nexttick: DWORD;
  Comma: Boolean=false;

die ich in jeder Unit bräuchte.
Denn diese enthalten werte für Timer,labels und edits.
Bzw. integer-werte die auf anderen Units gebraucht werden.