Mehrdimensionales dynamisches Array an Prozedur übergeben

[Mavarik]

Zitat von DeddyH:

Hast Du die Deklaration des Typs im implementation-Teil untergebracht? Dann verschieb sie mal in den interface-Teil.

Und die nächste Frage wird welche sein?

Ich bekomme jetzt die Fehlermeldung: "F2047 Zirkuläre Unit-Referenz auf Unit1" was muss ich machen...?

Daher vorab...

Delphi-Quellcode:

Unit Definitionen;

Interface

type
  TArray2D = array[0..5] of array[0..2] of Double; // Oder TArray2D = Array[0..5,0..2] of Double;

Delphi-Quellcode:

Unit Unit1;

Interface

Uses Definitionen...

Delphi-Quellcode:

Unit Unit2;

Interface

Uses Definitionen...

Mavarik

[DeddyH]

Das ist ja genau das, was ich als erste Möglichkeit vorgeschlagen hatte. Die nächste Frage ist aber: wieso müssen sich die Units gegenseitig einbinden?

[Mavarik]

Zitat von DeddyH:

Das ist ja genau das, was ich als erste Möglichkeit vorgeschlagen hatte. Die nächste Frage ist aber: wieso müssen sich die Units gegenseitig einbinden?

Naja... das ergibt sich doch aus dem Kontext:

Zitat von ndy:

Steht in Unit1 direkt unter Interface

Unit1:

Zitat von ndy:

Habe die Typdeklaration aus der Unit2

[ndy]

Ich muss dazu sagen, dass ich das Programm nicht allein geschrieben habe, sondern ein bestehendes Programm erweitere. Da ich ein Anfänger auf dem Gebiet der (Delphi)-Programmierung bin habe ich mir einiges von meinem Vorgänger abgeschaut, unter anderem das gegenseitige Einbinden der Units.


Irgendwo habe ich mal gehört, dass globale Variablen (dementsprechend auch Typen?) wohl verpöhnt sind. Oder wäre das eine Lösungsmöglichkeit. Mit globalen Variablen/Typen kenne ich mich aber leider auch nicht aus.

[DeddyH]

Nochmal ganz langsam: wenn die Typdeklaration der einzige Grund dafür ist, dann wie gesagt entweder in eine eigene Unit packen oder alternativ dort, wo damit gearbeitet wird (IMO also dort, wo die Klasse deklariert ist).

Delphi-Quellcode:

unit Work;

interface

uses ...;

type
  TMyType = ...;

  TMyClass = class
    ...
    procedure DoSomething(Foo: TMyType);
  end;

Typ und Klasse sind nun in allen Units verfügbar, die Work einbinden.

Delphi-Quellcode:

unit Use;

interface

uses ..., Work;

Ist aber in Use etwas deklariert, worauf Work zugreifen soll, müssen sie sich (zunächst) gegenseitig einbinden. Das ist kein gutes Design, daher sollte man sich überlegen, wie man das vermeiden kann.

[Mavarik]

Zitat von ndy:

Oder wäre das eine Lösungsmöglichkeit. Mit globalen Variablen/Typen kenne ich mich aber leider auch nicht aus.

Schau mal hier

[ndy]

Zitat von DeddyH:

Delphi-Quellcode:

unit Use;

interface

uses ..., Work;

Aha, da lag der Fehlerteufel.

Die Unit work war in der Unit Use im Implementation- und nicht im Interface-Bereich eingebunden. Hatte das irgendwo mal gelesen, dass man das eigentlich so machen sollte


Vielen Dank!

[ndy]

Zitat von Mavarik:

Zitat von ndy:

Oder wäre das eine Lösungsmöglichkeit. Mit globalen Variablen/Typen kenne ich mich aber leider auch nicht aus.

Schau mal hier

Tut mir leid aber ich stelle mich wohl zu dumm an, als dass ich erkenne worauf du hinaus willst.

PS: Wie erreiche ich, dass der Thread nichtmehr als offene Frage angezeigt wird?

[DeddyH]

Du kannst sie auch im implementation-Abschnitt einbinden, allerdings darf dann im interface-Abschnitt auf keinen Typen und keine Routine zugegriffen werden, der/die in der eingebundenen Unit steht.