Inkompatible Typen Fehler?

[mr.winkle]

Hallo Leute,
ich habe ein Problem mit anscheinend als inkompatibel betrachteten Typen. Meine Deklaration sieht wie folgt aus:

Delphi-Quellcode:

  tpl = record
    index     :integer;
    farbe     :tcolor;
    zuparken  :string;
    a         :array of tpoint;
  end;

  tfl = record
    index :integer;
    farbe :tcolor;
    a     :array of tpoint;
  end;

  tlevel = record
    s:    string;
    pl    :array of tpl;
    fl    :array of tfl;
    bg    :tcolor;
  end;

var
  Form2: TForm2;
  lvl:tlevel;
  buf:array of tpoint;

und weiter unten verweigert mir der Compiler nun folgendes:

Delphi-Quellcode:

procedure TForm2.rb1Click(Sender: TObject);
begin
  if rb3.Checked then
    begin
    setlength(lvl.fl,length(lvl.fl)+1);
    lvl.fl[high(lvl.fl)].a:=buf;
    end;

  setlength(buf,0);
  zeichnen;
end;

Warum? Und wie kann ich das beheben?
Benutze Delphi 7.

mfg, mr.winkle

[Fussball-Robby]

In welcher Zeile tritt der Fehler denn auf bzw. wird irgendetwas darüber gesagt welche typen inkompatibel sind?

Mfg

[mkinzler]

Delphi-Quellcode:

TTpArray = array of tpoint;;
tpl = record
    index     :integer;
    farbe     :tcolor;
    zuparken  :string;
    a         :TTpArray;
  end;

  tfl = record
    index :integer;
    farbe :tcolor;
    a     :TTpArray;
  end;

  tlevel = record
    s:    string;
    pl    :array of tpl;
    fl    :array of tfl;
    bg    :tcolor;
  end;

var
  Form2: TForm2;
  lvl:tlevel;
  buf:TTpArray;

[mr.winkle]

Okay, danke!
So hats funktioniert, hät ich auch mal selber versuchen können, sorry.

mfg, mr.winkle

[mkinzler]

Delphi erkennt Typen leider nur anhand des Namens und nicht am eigentlichen Format.

[RavenIV]

Zitat von mkinzler:

Delphi erkennt Typen leider nur anhand des Namens und nicht am eigentlichen Format.

Extremer ist es noch, wenn man in zwei Units den Typ TMyVar mit gleichem Namen und gleichem Aufbau (z.B. Array oder Record) definiert und dann diesen Fehler um die Ohren gehauen bekommt.
Da bin ich Anfangs auch immer wieder darüber gestolpert. Dann hab ich mir angewöhnt, alle Typen in einer Definitions-Unit zu definieren.