Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#4

Re: Per Klasse auf übergeordnete Klasse zugreifen?

  Alt 21. Feb 2006, 08:25
Moin christian,

vielleicht habe ich es schlecht ausgedrückt, aber ich meinte es so:

Ich habe eine Subklasse und eine Hauptklasse, die so aussehen:

Delphi-Quellcode:
TServer = class(TPersistent)
private
    function GetHost: string;
    procedure SetHost(const Host: string);
    function GetPort: Word;
    procedure SetPort(const Port: Word);
  published
    property Host: string read GetHost write SetHost;
    property Port: Word read GetPort write SetPort;
  end;

TMainClass = class(TComponent)
private
  FClientSocket: TClientSocket;
  FServer: TServer;
published
  Server: TServer read FServer write FServer;
end;
So... TServer ist eine Klasse für die "Kategorie" "Server" die man nachher im OI sehen kann mit seinen Membern "Host" und "Port"...
Die privaten Methoden dieser Klasse müssen irgendwie an die gleichnamigen Properties des Feldes "FClientSocket" der Hauptklasse kommen... nur wie? Ich finde meine obige Idee "unsauber".

Edit:

@Elvis: wie komme ich an den Owner? TPersistent muss man keinen übergeben....welche Klasse sollte ich stattdessen verwenden?
Mario
MSN: cyanide@ccode.de
  Mit Zitat antworten Zitat