Einzelnen Beitrag anzeigen

Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

Variable Klassen von Objekteigenschaften

  Alt 24. Nov 2007, 15:32
Hey,

es ist möglich, dass ich anhand einer Objekteigenschaft die Klasse einer weiteren Eigenschaft ändere?

Folgendes Beispiel:
Delphi-Quellcode:
type
  TForumType = (ftDP, ftDF, ftDSDT);
Delphi-Quellcode:
type
  TDPData = record
    URL: String;
    UserCount: Integer;
    Chat: String;
  end;
  TDFData = record
    URL: String;
    UserCount: Integer;
    NewPosts: Boolean;
  end;
  TDSDTData = record
    URL: String;
    LastVisit: TDateTime;
  end;
Delphi-Quellcode:
type
  TForum = class(TObject)
  private
    FForumType: TForumType;
    FDP: TDPData;
    FDF: TDFData;
    FDSDT: TDSDTData;
  public

  published
    property ForumType: TForumType read FForumType write FForumType;
    property Data: { hier dann je nach eingestelltem ForumType den entsprechenden Record }
  end;
Ist sowas überhaupt möglich? Wenn ja weiß jemand wie?

Gruß
  Mit Zitat antworten Zitat