Auf Variable aus Unit1 in Unit2 zugreifen

[marc.beeh]

Hallo,
ich habe ein aus 2 Units bestehendes Programm, bei dem in Unit1 Zahlen eingegeben und Ausgewertet werden. Diese sollen nun in Unit2 ausgegeben werden.
Leider haben alle Variablen, auf die ich aus Unit2 Zugreifen will immer den Wert 0. In Unit1 sind die Werte Ok.
Was habe ich vermutlich falsch gemacht? Worauf muss ich achten?

[SirThornberry]

hast du in unit2 im unter implementation die unit1 eingebunden??

[marc.beeh]

Ja, habe ich

[sakura]

Zeige doch mal alle Variablendeklarationen aus Unit1 und Unit2. Es hört sich an, als hättest Du die Variablen in beiden Units deklariert ;-)

...:cat:...

[marc.beeh]

Ok, hier Unit1:

Delphi-Quellcode:

var
  Form1: TForm1;
  feld: array[1..24] of Integer;        // Eingabewerte
  feldsumme: array[1..12] of Integer;   // Summe der Eingabewerte (feld[i] + feld[i+12]
  endsumme: array[1..12] of single;    // Summe nach Berechnung
  tempsumme: array[0..12] of single;     // temporär
  summe, einviertel, dreiviertel: single;  // Endsumme, Anteile davon

und hier Unit2:

Delphi-Quellcode:

var
  Form3: TForm3;

[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

[marc.beeh]

Zitat:

Du musst im Implementations Abschnitt die Units einbinden!

Habe ich auch... :?

Irgendwie kennt Unit2 die Variablen ja auch. Aber sie enthalten nach Meinung von Unit2 immer 0 :wall:

[Matze]

Dann muss es an deinem Code liegen, vermute ich mal...

[marc.beeh]

*hat sich erledigt*

[marc.beeh]

Ich kapiers net... Ich hab jetzt einfach mal von Unit1 aus, der Tabelle die Werte zugewiesen - und - jetzt geht es... :o