Hallo
Ich hab mal wieder ein problem....
Ich habe dass hier deklariert
Delphi-Quellcode:
type
TAnschluss = record
InterfaceID : Cardinal;
ModulNr : Cardinal;
Anschlussnr : Cardinal;
end;
{TGleis deklarieren}
type
TGleis = record
Case vorhanden : boolean of
true: (
imagelistindex : cardinal;
Ausrichtung : TGleisausrichtung;
Gleisstellung : cardinal;
Anschluss : Array[0..3] of TAnschluss;
)
end;
sowie dass hier
FGBArray : Array of Array of TGleis;
nun hab ich dass hier
Delphi-Quellcode:
procedure TJTGleisbild.SetGleis(X, Y : Cardinal; Gleis : TGleis);
begin //gleis in Array setzen, falls es sich unterscheidet.
{überprüfen ob das element innerhalb des array ist}
If (X <= FGBColCount) and (Y <= FGBRowCount) then
if FGBArray[X,Y] <> Gleis then
FGBArray[X,Y]:=Gleis;
end;
Ich übergebe der procedure ein TGleis. Dieser soll nun prüfen ob X und Y inerhalb des arrays liegen und dann soll er schaun ob das an der position X,Y sich befindende TGleis ungleich dem übergebenen TGleis ist und falls dass so ist dann soll er das Tgleis im Array durch das neue Tgleis ersetzen.
hier meint er dann...
if FGBArray[X,Y] <> Gleis then
Zitat:
[Fehler] JTGleisbild.pas(80): Inkompatible Typen
wo liegt denn sein problem? kann er keine records miteinander vergleichen?
gruß snow