Klasse ableiten: Methode überschreiben & Rückgabetyp ändern

[changlee]

Genial, es funktioniert. Wirklich vielen Dank für die Antworten.
Das was Guinnes geschrieben hat, kannte ich so gar nicht. Ich dachte, wenn ich
TJob(InstanzVonTBackupJob).Free aufrufe, würde immer das Destroy von TJob aufgerufen werden.

sx2008 hat recht, da sich der pointer, den ich mit TJob(..) verarbiete tatsächlich bewust ist, dass er in wirklichkeit ein TBackupJob ist, brauche ich die TJobList überhaupt nicht abzuleiten

Dann sieht es bei mir jetzt so aus:

Delphi-Quellcode:

  TBackupJob = class(TJob)
  private
    fBackupData: TBackupData;
    //..
  public
    property BackupData:TBackupData read fBackupData write fBackupData;
    constructor Create(aParent: TJobList);
    destructor Destroy; override;
  end;

implementation

constructor TBackupJob.Create(aParent: TJobList);
begin
  inherited Create(aParent);
  fBackupData.Name := 'Neue Backup Aufgabe';
end;


destructor TBackupJob.Destroy;
begin
  showmessage('BackupDestroy');
  inherited;
end;

und aufrufen kann ich es dann mit:

Delphi-Quellcode:

procedure TForm1.NewTaskButtonClick(Sender: TObject);
var aList: TJobList;
    aJob: TBackupJob;
    bd: TBackupData;
begin
  test := TJobList.Create;
  try
    aJob := TBackupJob.Create(aList);
    bd := aJob.BackupData;   //aJob.BackupData.Name := 'test'; <-- ging leider nicht..
    bd.Name := 'test';
    aJob.BackupData := bd;
    showmessage(aJob.BackupData.Name);
  finally
    test.Free;
  end;
end;

Es wird auch tatsächlich das destroy von TBackupjob ausgeführt!
Die funktion TJobList.NewJob habe ich einfach entfernt. Muss man es eben mit Create selbst machen.

Nochmal Danke! Jetzt wird das alles viel sauberer (und kürzer).

PS: Guinnes, kennst du auch so ein tolles Beispiel für die Bedeutung von reintroduce gegenüber virtual/override und Überladen?

[xZise]

Also soweit ich weiß blendet reintroduce nur die Warnung aus, arbeitet aber so, als würde dort weder virtual noch override stehen.
Übrigens das „Instanz von Klasse1“ oder so ist nicht gaaaanz so einfach

Delphi-Quellcode:

type
  TClass1 = class
    function random : string;
  end;
  TClass2 = class(TClass1)
    function random : string;
  end;

var
  c : TClass1;
begin
  c := TClass2.Create;
  ShowMessage(c.random); // Hier wird random von TClass1 aufgerufen
end;

Mit virtual/override, würde dann random von TClass2 aufgerufen werden.

MfG
Fabian