Objekt Casting

[r2c2]

Hier diskutiere ich das Problem: http://www.christian-rehn.de/tag/multimethoden/ Zumindest wenn ich dich richtig verstanden habe, müsste das das Problem (und dessen Lösung) sein.


mfg

Christian

[haentschman]

Danke erstmal...

Aber heute nicht mehr... Da fehlt´s an Konzentration

Nebenbei überlege ich ob die ObjectList Variante so prickelnd ist. Oder einfach wirklich manuell casten und Ruhe ist...

[Blup]

Ein Konzept:

Delphi-Quellcode:

unit UnitFramework;

type
  TWirter = class()
    function Accept(AObject: TObject): Boolean; virtual; abstract;
    procedure Write(AObject); virtual; abstract;
  end;

  TReader = class()
    function Accept(AObject: TObject): Boolean; virtual; abstract;
    procedure Read(AObject); virtual; abstract;
  end;

  TFrameWork = class()
  private
    FWriterList: TObjectList;
    FReaderList: TObjectList;
  public
    procedure RegisterWriter(AWriter: TWriter);
    procedure RegisterReader(AReader: TReader);
    procedure Read(AObject: TObject);
    procedure Write(AObject: TObject);
  end;

var
  MyFrameWork: TFrameWork;

implementation

procedure TFrameWork.RegisterWriter(AWriter: TWriter);
begin
  FWriterList.Add(AWriter);
end;

procedure TFrameWork.RegisterReader(AReader: TReader);
begin
  FReaderList.Add(AReader);
end;

procedure TFrameWork.Read(AObject: TObject);
begin
  for Reader in FReadList do
    if Reader.Accept(AObject) then
    begin
      Reader.Read(AObect);
      Exit;
    end;
end;

procedure TFrameWork.Write(AObject: TObject);
begin
  for Writer in FWriterList do
    if Writer.Accept(AObject) then
    begin
      Writer.Write(AObect);
      Exit;
    end;
end;

Delphi-Quellcode:

unit UnitMyObject;

type
  TMyObject = class()
  end;

Delphi-Quellcode:

unit UnitMyObjectReadWrite;

uses
  UnitFramework, UnitMyObject;

type
  TReader_MyObject = class(TReader)
    function Accept(AObject: TObject): Boolean; override;
    procedure Read(AObject); override;
  end;

implementation

function TReader_MyObject.Accept(AObject: TObject): Boolean;
begin
  Result := AObject is TMyObject;
end;

procedure TReader_MyObject.Read(AObject);
begin
  with AObject as TMyObject do
  begin
    {...}
  end;
end;

initialization
  MyFrameWork.RegisterReader(TReader_MyObject.Create);

end.

[haentschman]

Guten Morgen...

Danke an alle die sich Mühe gemacht haben. Ich habe mich für den Weg des manuellen Castings ala
if aObject.ClassType = TIrgendwas then Save(TIrgendwas(aObject)); entschieden. Sind ja nur 20 Quelltextzeilen mehr. Quasi eine je Objekttyp.
Ich übergebe dem DBFramework ein TObject und dieses dröselt das nach Objekttypen auf und ruft die entsprechende überladene Prozedur auf. Fand ich am einfachsten umzusetzen.

Danke an alle...

@Uwe: dein Link bzw. die weiteren Seiten lassen sich nicht öffnen (sporadisch) Database Error Stand: 10:43

[Uwe Raabe]

Zitat von haentschman:

@Uwe: dein Link bzw. die weiteren Seiten lassen sich nicht öffnen (sporadisch) Database Error Stand: 10:43

Jupp! Die ganze Website funktioniert nicht. Schaun mer mal... Aha! Man arbeitet schon daran. Also vielleicht später nochmal versuchen.

Danke für die Info

[haentschman]

...was ist schon perfekt

[Uwe Raabe]

Zitat von r2c2:

Hier diskutiere ich das Problem: http://www.christian-rehn.de/tag/multimethoden/ Zumindest wenn ich dich richtig verstanden habe, müsste das das Problem (und dessen Lösung) sein.

Nachdem ich mir den Link angesehen habe, könnte das wirklich eine brauchbare Lösung sein. Nebenbei bemerkt, habe ich auch mal was über das Vistor Pattern geschrieben