Eindeutige ID für Erben eines Objekts ?

[dataspider]

Hi,

ich würde es z.B. so machen:

Delphi-Quellcode:

interface

type
  TMyObject = class(TObject)
  private
    FID: Integer;
    FName: string;
  public
    constructor Create(const AName: string);
    property ID: Integer read FID write FID;
    property Name: string read FName write FName;
  end;

implementation

Var
  // Variable für ID
  AIndex: Integer = 0;

constructor TMyObject.Create(const AName: string);
begin
  inherited Create;
  FName := AName;
  FID   := AIndex;
  Inc(AIndex);
end;

Test:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Ameise : TMyObject;
begin
  Ameise := TMyObject.Create('Gustav');
  ShowMessage(Format('Ameise %s Index %d', [Ameise.Name, Ameise.id]));
  Ameise := TMyObject.Create('Anton');
  ShowMessage(Format('Ameise %s Index %d', [Ameise.Name, Ameise.id]));
end;

Cu, Frank