Unitübergreifende Variablen

[Sebastian92]

Hi Leute,

Ich hab ein kleines Problem mit meinem programm... ich krieg es nicht hin eine Variable übergreifend auf zwei Units zu deklarieren. Eigentlich ganz einfach, allerdings benötigt Unit1, Unit2, somit kann Unit2 nicht in unit1 in die uses-liste eingetragen werden. unten ein kleines Schema:

Delphi-Quellcode:

  unit Unit1

  interface
  
  uses Unit2; //diese beziehung ist notwendig!!!

  type
    myrecord = record
                 Name :String[20];
               end;

  implementation
  ...

Delphi-Quellcode:

  unit Unit2
 
  interface
  ...
  //Hier wird der Typ myrecord gebraucht

  implementation

  uses Unit1;
  ...

Gibt es eine Möglichkeit auf Unit 2 in der implementation den in unit 1 deklarierten datentyp zu benutzen? Oder gibt es eine Möglichkeit einem Objek einen Datentyp zuzuweisen, wie bei Feldern (array [1..2] of myrecord)?

Vielen Dank für eure Hilfe bereits im Vorraus,

mit freundlichen Grüßen,

Sebastian

[Bernhard Geyer]

Kann das Uses in unit 1 in den implementation-Abschnitt verschoben werden?

Ansonsten nimm eine Unit3 und lager die Typdefinition dort hin aus.

[Sebastian92]

Nein Leider nicht, in der Unit2 wir ein Objekt deklariert. Dieses wird in Unit1 benötigt. Diese Objekt soll nur die vorgaben aus Unit1 übernehem (sprich myrecord).

[Sharky]

Zitat von Sebastian92:

Nein Leider nicht, in der Unit2 wir ein Objekt deklariert. Dieses wird in Unit1 benötigt. Diese Objekt soll nur die vorgaben aus Unit1 übernehem (sprich myrecord).

Zitat von Bernhard Geyer:

... Ansonsten nimm eine Unit3 und lager die Typdefinition dort hin aus.

Wie Bernhard schon sagte,
erzeuge eine Unit MyTypes und deklariere dort deine Typen. Diese Unit bindest Du dann in Unit1 und Unit2 ein.