Variable Unitübergreifend

[Uceo]

Hallo, ich habe in meiner Unit2 eine variable namens "company". In Unit 3 möchte ich diese variable verwenden. Aber delphi beschwert sich mit undefinierter bezeichner. Wie kann ich aus der alten Unit die variable hohlen? Danke!

[Luckie]

Wo hast du sie denn in Unit2 deklariert? Und hast du Unit2 in den uses von Unit3 aufgenommen?

Btw. sind globale Variablen sehr gefährlcih und nicht OOP konform. Ich würde sie vermeiden wo es geht und stattdessen den Wertt als parameter einer Funktion weitergeben.

[Uceo]

Und wie mache ich eine variable global?

[Pseudemys Nelsoni]

definier sie einfach über "implementation"

Delphi-Quellcode:

var
  Form1: TForm1;
  deineVariable: DeinTyp;

...

implementation

[Matze]

oder deklariere sie unter public

Delphi-Quellcode:

public
  a: integer;

In Form3 dann:

Delphi-Quellcode:

uses Unit2;

...

//Aufruf:
Form2.a := 5;

[Uceo]

Ich habe jetzt in Unit2:

Delphi-Quellcode:

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

und in Unit3:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
form3.Caption := 'Musikspiel ' + String(Form2.company);
end;

Aber in Unit3 schreibt er einfach in die Form3 'Musikspiel ' und nichts weiter. Es wird also nicht übernommen! Woran kann das liegen?

[Stanlay Hanks]

Zitat von Uceo:

Ich habe jetzt in Unit2:

Delphi-Quellcode:

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

und in Unit3:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
form3.Caption := 'Musikspiel ' + String(Form2.company);
end;

Aber in Unit3 schreibt er einfach in die Form3 'Musikspiel ' und nichts weiter. Es wird also nicht übernommen! Woran kann das liegen?

Hmmm...Hast du "Variable := String()..." nur als Beispiel geschrieben oder heißt die Variable wirklich so? Dann weist du ja nicht "company" den Wert zu, sondern "Variable". Im Prinzip ist also "company" noch leer.

Man liest sich, Stanlay

[Uceo]

Das war nur als beispiel!

[Uceo]

So, hier ist das ganze Problem: Das Problem auf meinem Server. Die Variablen werden alle in Unit2 vereinbart und gebraucht. Es handelt sich um die Texteingabe variable "company". In Unit3 soll das als Fenstertitel: form3.caption := 'Das Musikspiel ' + String(form2.company); angezeigt werden, es wird aber nur Musikspiel angezeigt und die Variable sagt mir Delphi ist ''. Ich hoffe ihr könnt mir helfen! Vielen Dank! Uceo