Auf Variable aus Unit1 in Unit2 zugreifen

[Bit Juggler]

Hi marc,

Du musst im Implementations Abschnitt die Units einbinden!
Die Variablen die Du aus Unit1 in Unit2 benutzen willst müssen im Interface Berreich deklariet sein, das hattest Du ja soweit richtig!
Hie ein simples Beispiel:

Delphi-Quellcode:

// Unit1
var
  Form1: TForm1;
  AusUnit1: String;

implementation

{$R *.dfm}

uses
  Unit2;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AusUnit1:= 'Ein Gruß aus Unit1';
end;

Ubd weiter:

Delphi-Quellcode:

// Unit2
var
  Form2: TForm2;

implementation

{$R *.dfm}

uses
  Unit1;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit1.Text:= AusUnit1;
end;

Gruß Bit