Variable global in einer Pas Datei

[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.