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.