Array in einer anderen Unit speichern

[Das_Dingomann]

Heyho!

Ich habe ein Memory-Spiel geschrieben und soll das jetzt auf Anweisung meines Info Lehrers LAN-fähig umschreiben.
Soweit so gut...Ich speichere die einzelnen Karten in einem zweidimensionales Array und möchte dieses Array jetzt in eine eigens definierte Package-Variable packen, um dieses komplette Array über LAN zuverschicken. Das Problem ist ich trenn das komplette Projekt in eine Unit, welche das eigentliche Spiel beinhaltet, und in eine zweite Unit, welche die ganze Netzwerk Geschichte verarbeitet. Wenn ich jetzt in der Unit2 in meiner Packages-Variable die Array-Variable aus Unit1 speichern möchte bekomm ich die Fehlermeldung "Inkompatible Typen: 'Unit1.TFeld' und 'Unit2.TFeld';"

Hier der Code aus der Unit1:

Delphi-Quellcode:

.
.
.
type

  Tfield = array[0..15,0..15] of Integer;

.
.
.  

var
  Form1: TForm1;
  cards:  Tfield;
.
.
.

Und hier der Code aus der Unit2:

Delphi-Quellcode:

.
.
.
type

  TPackagetype  = ( pkgconnect, pkggo, pkgcard);
  Tfield = array[0..15,0..15] of Integer;
  
TPlayer = record
    Name : String[20];
    Points : Integer;
    Active : Boolean;
  end;

  TPackage = record
   Case pkgtype : TPackagetype  of
     pkgconnect:(player_num:integer;);
     pkggo:(fieldarray:Tfield;
            player:array[1..4] of TPlayer;);
     pkgcard:(X,Y:Integer;);
  end;
.
.
.
procedure TForm2.send_pkggo;
var pkg:TPackage;
begin
 pkg.pkgtype:=pkggo;

  pkg.fieldarray:= cards; //Hier bekomm ich die Fehlermeldung "Inkompatible Typen: 'Unit1.TFeld' und 'Unit2.TFeld'"


end;

Ich hoffe ihr könnt mir helfen..Danke schonmal im vorraus.

[DeddyH]

Pack die Typen doch in eine extra Unit, die von den beiden anderen eingebunden wird.

P.S: Willkommen in der DP :dp:

[Das_Dingomann]

:gruebel: ... Ja, das könnte klappen..aber ich würd gerne mal wissen, warum Delphi sagt das wären zwei verschiedene Typen :?:

€: Thanks^^

[Die Muhkuh]

Weil es einmal in Unit1 und einmal in Unit2 definiert ist und die wohl auch gegenseitig eingebunden sind. Woher soll Delphi nun wissen, was Du möchtest ;)

[Das_Dingomann]

So jetzt funktioniert es...muss anscheind alle Records und Arrays die ich in beiden Units verwenden möchte in einer Dritten definieren :/

Thanks :thumb: