Mal wieder Klassenvererbung

[Jelly]

Hallo,

ich habe mir eine Grundklasse TGeometrie erstellt und von dieser 2 weitere abgeleitet, nämlich TKugel und TQuader... Soweit kein Problem.

Desweiteren hab ich noch eine Klasse TGeometrien von TObject abgeleitet, und in dieser Klasse als Eigenschaft Items : array of TGeometrie, also ein dynamisches Array, welches all meine Geometrien enthalten soll...

Jetzt sollen aus einer Textdatei die Geometrien geladen werden, und in diesem Array gespeichert werden. In der Textdatei steht dann der Typ der Geometrie drin (Kugel oder Quader), und beim Erstellen der Geometrie benutz ich folgenden Code:

Delphi-Quellcode:

if GeomTyp is TKugel then Fitems[i] := TKugel.create ;
if GeomTyp is TQuader then Fitems[i] := TQuader.create ;

Das klappt auch soweit ganz gut. Allerdings ist diese Typabfrage sehr nervig wenn ich meine geometrischen Formen erweitern will (z.B. Tetraeder), weil ich dann auch in der klasse TGeometrien eine weitere if-Bedingung dazu brauch, damit ich richtig caste, und dies will ich irgendwie vermeiden, hab aber keine Ahnung wie?

Ich hoff ich drück mich klar genug aus... Ich will eben erreichen daß ich mich in der TGeometrien Klasse überhaupt nicht mehr um den wahren Typ von Items kümmern muß, sondern daß automatisch der richtige Typ genommen wird.

Gruß,
Tom

[neolithos]

Schau die mal "class of" vielleicht hilft dir das weiter!

Delphi-Quellcode:

type
  TGeometryClass = class of TGeometry;

  TGeometryTyp = (tgKugel, tgQuader);

const
  cClass : array [TGeometryTyp] of TGeometryClass = (TKugel, TQuader);

fItem := cClass[ttKugel].Create; Ich hoffe das hilft.

[Stevie]

Eine kleine Abhandlung über virtuelle und abstrakte Methoden gibt's bei Delphi-Source.de!

Du musst also den Konstruktor von TGeometrie virtual abstract machen, dann klappt's folgendermaßen:
Fitems[i] := GeomTyp.Create;

[Muetze1]

Moin!

Wenn man den Constructor virtuell abstrakt macht, dann weiss Delphi doch immernoch nicht für welche Klasse er sich entscheiden soll, weil das doch eigentlich von dem File abhängt aus dem geladen wird. Ich würde daher folgende Dinge vorschlagen:

1. Lege dir eine Metaklasse an für TGeometrie
2. Bau dir eine Funktion auf, die Klassen in einer Liste speichert. Übergeben wird eine Klasse die zu der Metaklasse passt (z.B. TQuader)
3. Speichere beim speichern den ClassName
4. beim Laden suche in der Liste von der Metaklassenliste nach einer Klasse mit dem Klassennamen und instanziiere diese über die MetaClass.

5. Nutze bei dir für deine TGeometries Klasse eine TObjectList als ein dynamisches Array, das macht die Verwaltung einfacher.

Beispiel zu dem Punkten 1. bis 4. kannst du dir z.B. in meiner XML Library auf meiner HP anschauen. Dort kann sich jeder einen eigenen Charset Encoding Filter schreiben und installieren. Dieses funktioniert genau nach dem Prinzip. Also schau dir mal wie ich die ISO8859-1 und UTF-8, etc registriere, verwalte und dann, wenn ich in der Datei ein charset encoding finde, instanziiere. (Die Registrierung wird bei den Charset Encodern im Initialize der Unit durchgeführt und damit die aufgerufen wird, muss die Unit einfach nur im Projektfile mit enthalten sein).

MfG
Muetze1

[Stevie]

Zitat von Jelly:

Delphi-Quellcode:

if GeomTyp is TKugel then Fitems[i] := TKugel.create;
if GeomTyp is TQuader then Fitems[i] := TQuader.create ;

Das heißt doch, dass GeomTyp bereits mit TKugel.Create oder TQuader.Create erstellt wurde, oooder?
Also kann man GeomTyp.Create aufrufen und erhält somit eine Instanz der richtige Klasse!?

[Muetze1]

Moin!

Mal abgesehen davon das der Code so oder so sehr irreführend ist, schreibt er doch, wer die items alle in eine Textdatei schreiben und beim laden nicht immer eine If Zeile mehr einfügen für einen neuen Typ. So oder so muss er von TextInformationen aus der Datei wieder auf eine Klasse kommen bzw. eine Klasseninstanz erstellen. Somit hilft ihm der Code Schnipsel eher weniger - und vor allem weiss ich auch nicht wie/was er da macht. Zumindest hilft ihm ein virtueller abstrakter Constructor in dem Falle auch nicht soweit ich mir das so durchdenke.

Summa Sumarum: Ich bezog mich eher auf seine Beschreibung als auf seine Codeschnipsel.

MfG
Muetze1

[Stevie]

So genehm?

Delphi-Quellcode:

unit frVererbung;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TGeometrie = class(TPersistent)
    constructor Create; virtual; abstract;
  end;

  TKugel = class(TGeometrie)
    constructor Create; override;
  end;

  TQuader = class(TGeometrie)
    constructor Create; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TQuader }

constructor TQuader.Create;
begin
  inherited;
  ShowMessage(ClassName);
end;

{ TKugel }

constructor TKugel.Create;
begin
  inherited;
  ShowMessage(ClassName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TGeometrie(FindClass('TKugel').Create).Create;
  TGeometrie(FindClass('TQuader').Create).Create;
end;

initialization
  RegisterClass(TKugel);
  RegisterClass(TQuader);

finalization
  UnRegisterClass(TKugel);
  UnRegisterClass(TQuader);

end.

[Jelly]

Vielen Dank für die vielen Anregungen, womit ich schon mein beschränktes Wissen wesentlich auffrischen konnte. Es ist einiges Brauchbares dabei, aber wie Muetze1 bereits geschildert hab, muss ich immer irgendwie in meiner TGeometrien Klasse entscheiden, was passieren soll. Der Grund liegt darin, weil ich das Auslesen der Daten aus der Textdatei nicht in TKugel oder TQuader ablagern kann, da ich ja im Vorfeld die Klasse instanzieren muss... Ich weiss, mein Problem ist ziemlich verstrickt. Werd also nicht beim Definieren einer neuen Geometrieklasse drumrumkommen, auch in TGeometrien jeweils ne Zeile hinzuzufügen...

Aber nochmals danke... Eure Ansätze und Mühe sind Klasse.

Gruß,
Tom

[Muetze1]

Moin!

Mir ist egal, ich mache nur Vorschläge, er muss es entscheiden.

Ich für meinen Teil würde dabei aber schon wieder sagen, das TPersistent für seinen Zweck zu viel/gross ist... Ein normales TObject Descandent hätte auch gereicht, dafür müsste man das mit der MetaClass selber machen und kann halt kein RegisterClass() und FindClass() nutzen.

MfG
Muetze1

[Jens Schumann]

Zitat von Stevie:

So genehm?

Das überschreiben des constructors ist nicht nötig.
In der Anlage ist der Beweis.