Einzelnen Beitrag anzeigen

Oxmyx

Registriert seit: 21. Sep 2004
499 Beiträge
 
#5

Re: Weiterentwickelndes Object???

  Alt 7. Mär 2005, 16:23
Also das ganze ist schon prinzipiell möglich.

Delphi-Quellcode:
type
  Base = class
    procedure Convert;
  end;

  Derived = class(Base)
    procedure Message;
  end;

{...}

procedure Base.Convert;
begin
  Self.Destroy;
  Self := Derived.Create;
end;

procedure Derived.Message;
begin
  ShowMessage('Hat funktioniert.');
end;

{...}

var
  C: Base;
begin
  C := Base.Create;
  C.Convert;

  if (C is Derived) then (C as Derived).Message;
end;
  Mit Zitat antworten Zitat