Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#10

Re: Klasse mit mehreren "ebenen"?

  Alt 21. Jul 2006, 10:41
@Phantom1

Die Index-Direktive ist nur sinnvoll, wenn die Properties sich einen Getter/Setter teilen. Wenn du aber über den Index auf die Elemente des Arrays zugreifen möchtest, dann besser so:

Delphi-Quellcode:
type
  TAbsender = packed record
    Name: string[255];
    PLZ: Cardinal;
  end;

  TAbsenderClass = class(TObject)
  private
    absender: array of TAbsender; // oder TObjectList
    function GetName(aIndex: Integer): string;
    procedure SetName(aIndex: Integer; const aValue: string);
    function GetPLZ(aIndex: Integer): Cardinal;
    procedure SetPLZ(aIndex: Integer; aValue: Cardinal);
  public
    property Name [aIndex: integer]: string read GetName write SetName;
    property PLZ [aIndex: integer]: Cardinal read GetPLZ write SetPLZ;
    //..
  end;
Gruß Hawkeye
  Mit Zitat antworten Zitat