Record als Property übergeben

[Helmi]

Hallo,

ich habe eine Mainform in der ich ein Record habe:

Delphi-Quellcode:

type
  //Record für Verwaltung
  Verwaltung_Rec = record
    Name    : String[255];
    OrdnerID: String[50];
  end;

In der MainForm hab ich eine Variable die so definiert ist:
  Liste_Sprachen = Array of Verwaltung_Rec; so - so weit so gut.

Ich habe eine zweite Form (EinstellungenForm) in der ich Properties definiert habe.
Die Variable "Liste_Sprachen" möchte ich nun an diese Form übergeben.

In der EinstellungenForm hab ich folgendes programmiert:

Delphi-Quellcode:

type
  //Record für Verwaltung
  Verwaltung_Rec = record
    Name    : String[255];
    OrdnerID: String[50];
  end;

  private

    FListe_Sprachen   : Verwaltung_Rec;

  published
    { Published-Deklarationen }
    property Liste_Sprachen: Verwaltung_Rec   read FListe_Sprachen  write FListe_Sprachen;

Wenn ich aber nun in der MainForm

Delphi-Quellcode:

  with EinstellungenForm do
    begin
      Liste_Sprachen    := Array_Sprachen;
    end;

mache, dann bekomm ich folgende Meldung:

Zitat:

[Fehler] Main.pas(741): Inkompatible Typen: 'Verwaltung_Rec' und 'dynamic array'

Was ja eigentlich auch ok ist, dann in der MainForm ist es ein Array und in EinstellungenForm ein Record.

Nur kann ich ja nicht in EinstellungenForm bei den property
    property Liste_Sprachen: Array of Verwaltung_Rec read FListe_Sprachen write FListe_Sprachen; Denn dann bekomm ich die Meldung:

Zitat:

[Fehler] Einstellungen.pas(85): Bezeichner erwartet, aber 'ARRAY' gefunden

Nur, wie bekomm ich es nun hin, dass ich das Record als Property übergeben kann?

[mkinzler]

Wenn du mehrere Record vom gleichen typ übergeben willst, kannst due eine indizierte Property nehmen. Aber du kannst dann trotzdem immer nur einen record auf einmal übergeben (keinen Array).

[Helmi]

Danke

ich denke ich bekomme auch probleme damit, dass mein Array dynamisch ist.

Ich denke ich werde bzw. muss auf eine TStringList ausweichen

[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;