Einzelnen Beitrag anzeigen

Phantom1

Registriert seit: 20. Jun 2003
282 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: Klasse mit mehreren "ebenen"?

  Alt 21. Jul 2006, 10:03
Zitat von 3_of_8:
Mit ner Property kannst du nur den GANZEN Record setzen, nicht Teile davon.
Wieso sollte das nicht gehen?
Delphi-Quellcode:
type
  TAbsender = packed record
    Name: string[255];
    PLZ: Cardinal;
  end;

  TAbsenderClass = class(TObject)
  private
    absender: array of TAbsender; // oder TObjectList
    function GetName(const Index: Integer): string;
    procedure SetName(const Index: Integer; const Value: string);
    function GetPLZ(const Index: Integer): Cardinal;
    procedure SetPLZ(const Index: Integer; const Value: Cardinal);
  public
    property Name: string index 0 read GetName write SetName;
    property PLZ: Cardinal index 1 read GetPLZ write SetPLZ;
    //..
  end;
  Mit Zitat antworten Zitat