Variable global in einer Pas Datei

[Dumpfbacke]

Hallo,
ich habe hier ein pas Datei, in der ich einige Funktionen habe welche ich von verschiedenen Programmen aus benutze. Dazu binde ich die Datei in verschieden Projekte ein. Die Funktionen kann ich auch dann mittels Global.Funktion1 aufrufen. Nun wollte ich einen Variable in der Pas Datei definieren, welche ich dann von einer Form aus beschriebn und lesen kann. Diese habe ich dann unter Public gemacht. Leider bekomme ich immer nun eine Exception EAccessViolation. Wenn ich jedoch von Form1 auf einen Variable von Form2 zugreifen möchte, so geht das ja ohnen Probleme.
Kann mir jemand sagen was ich falsch machen ?

Tanja

[mkinzler]

Hast du diese in einer Klasse angelegt oder wirklich global?

[Dumpfbacke]

Zitat:

Zitat von mkinzler

Hast du diese in einer Klasse angelegt oder wirklich global?

Hier mal etwas Code von mir.

Delphi-Quellcode:

unit GlobalUnit;

interface

uses
SysUtils, ...

TGlobal = class(TComponent)
 procedure Funktion1(Macro: string);
public
 Variable1: String;
end;

var
Global: TGlobal;
X,Y: Integer;

Implementation

Procedure TGlobal.Funktion1(Macro: string);
begin
....

:gruebel: :gruebel:
Tanja

[DeddyH]

Das sieht eigentlich OK aus. Evtl. liegt der Fehler woanders. :gruebel:

[mkinzler]

Ist Global eine instantiierte Instanz von TGlobal?

[Dumpfbacke]

Zitat:

Zitat von mkinzler

Ist Global eine instantiierte Instanz von TGlobal?

ich würde ja sagen oder ? Ich habe oben den Quelltext mal koplett eingetragen. So sieht meine pas Datei am Anfang aus.

Tanja

[sirius]

Und wann rufst du global:=Tgloabl.create(xyz) auf?

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Es geht um Delphi.

[Die Muhkuh]

Hi Tanja,

versuch mal dies hier:

Delphi-Quellcode:

unit GlobalUnit;

interface

uses
SysUtils, ...

TGlobal = class(TComponent)
procedure Funktion1(Macro: string);
public
Variable1: String;
end;

var
Global: TGlobal;
X,Y: Integer;

Implementation

Procedure TGlobal.Funktion1(Macro: string);
begin
....
end;

// Das kommt ganz nach unten, vor end.

initialization
Global := TGlobal.Create(nil);

finalization
Global.Free

end.

[Luckie]

Warum erzeugst du eine Instanz der Klasse in der Unit selber? Mach das zur Laufzeit im Programm, wenn du die Klasse brauchst.