Hallo Leute!
Ich habe gerade ein wahrscheinlich total einfaches Problem, hab aber mit googeln und Forensuche nicht anderes brauchbares gefunden als das was ich denke schon zu tun.
Ich rufe aus Form1 über einen Button Form2 auf und möchte dann in Unit2 auf globale Variablen aus Unit1 zugreifen.
Quelltexte:
Unit1:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
...
var
A:integer;
implementation
uses unit2;
...
Unit2:
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, unit1;
type
...
var
B:integer;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
B:=unit1.A;
end;
end.
Leider kommt da für B immer nur null raus, egal was A in Wirklichkeit für einen Wert hat.
Vielen Dank schonmal, Christophaa.