Record als Property übergeben

[himitsu]

Du definierst Verwaltung_Rec mehrfach.
Und obwohl die Definitionen gleich ausshen sind sie für den Compiler nicht das Selbe.

Definiere den records nur einmal () und greife in beiden Units auf die selbe Definition zu.

Zitat:

In der MainForm hab ich eine Variable die so definiert ist:

Liste_Sprachen = Array of Verwaltung_Rec;

Ich bin mir sicher, daß dieses keine Definition für eine Variable ist.

Delphi-Quellcode:

Type TListe_Sprachen_Array = Array of Verwaltung_Rec;

Var Liste_Sprachen: TListe_Sprachen_Array;
...
property Liste_Sprachen: TListe_Sprachen_Array read FListe_Sprachen  write FListe_Sprachen;

Wobei es o bestimmt besser ist:

Delphi-Quellcode:

property Liste_Sprachen[Index: Integer]: Verwaltung_Rec read Get_Liste_Sprachen write Set_Liste_Sprachen;

function Get_Liste_Sprachen(Index: Integer): Verwaltung_Rec;
  begin
    Result := FListe_Sprachen[Index];
  end;
procedure Set_Liste_Sprachen(Index: Ineger; Rec: Verwaltung_Rec);
  begin
    FListe_Sprachen[Index] := Rec;
  end;