Record Data als Property in class

[Acia6850]

Hallo eine kleine Frage,
ist es möglich in einer Klasse ein Property mit einem Recod Typ als read zu implementieren.

Bsp A oder geht nur Bsp B

Bsp A

Code: Alles auswählen

Type
  TData = record
    sStr : AnsiString;
    nNum : Longint;
  end;

  { TCalSeasonDateTime }

  TDummy = class
    private

     function xGetRecData : TData;
     
    public
      Constructor create(nCityNo : NativeInt);
      Destructor  destroy; override;

    published 
      property RecData : TData read xGetRecData;

  end;

Bsp B

Code: Alles auswählen

Type
  TData = record
    sStr : AnsiString;
    nNum : Longint;
  end;

  { TCalSeasonDateTime }

  TDummy = class
    private

    public
      Constructor create(nCityNo : NativeInt);
      Destructor  destroy; override;

     function xGetRecData : TData;

    published
     
  end;       
  
  

Grüsse

Acia6850

[theo]

Kommt drauf an, was dein Ziel ist.
Wenn du "property RecData : TData read xGetRecData;" vom "published" in den "public" Abschnitt verschiebst, geht es schon.

[Soner]

A geht nicht, bei published property muss eine die Klasse streaming unterstützten, wenn du published mit public/private/protected tauscht, dann geht a auch.
b geht auf jeden Fall.

Falls du unbedingt published brauchst, dann kannst du statt Record TCollection nehmen.

[Warf]

Wie bereits schon gesagt ist der Unterschied hier nicht property vs Function sondern public vs published. Letzteres brauchst du eigentlich nur für Komponenten.

Dazu sei noch gesagt, readonly properties sind nur dann readonly wenn sie intern eine Funktion benutzen:

Code: Alles auswählen

type
  TMyClass = class
  private
    FData: Integer;
  public
    property Data: Integer read FData;
  end;

var
  MyInstance: TMyClass;
begin
  // Schreiben einer "readonly" property:
  MyInstance := TMyClass.Create;
  PInteger(@MyInstance.Data)^:=42;
  WriteLn(MyInstance.Data);
end.

[Acia6850]

Hallo,

vielen Dank für die Information und Lösungen.

Ich habe mich entschlossen mit Bsp B zu arbeiten.

Grüße

Acia6850