Assign für TDictionary implementieren

[Uwe Raabe]

Zitat von bernau:

Aber du prüfst ja direkt, ob es TMyDictionary ist.

Das könnte in einer Ableitung aber ja durchaus anders sein.

[bernau]

Zitat von Uwe Raabe:

Zitat von bernau:

Aber du prüfst ja direkt, ob es TMyDictionary ist.

Das könnte in einer Ableitung aber ja durchaus anders sein.

Dann dürfte in der Ableitung aber kein Inherited aufgerufen werden, da ja sofort AssignError ins Spiel kommt.

Wenn es ein ganz anderer Parameter ist, der auch das Assign vom Elternobjekt nicht verwenden darf, dann könnte man auch ein "overload" verwenden.

[Schokohase]

@bernau wie inherited darf nicht aufgerufen werden ...

Delphi-Quellcode:

procedure TMyOtherDict.Assign(Source:TObject);
begin
  if Source is TFoo then
  begin
    ...
  end
  else
    inherited;
end;

klar, nicht einfach blind aufrufen, aber durchaus konditional aufrufbar

[bernau]

Zitat von Schokohase:

klar, nicht einfach blind aufrufen, aber durchaus konditional aufrufbar

Das stimmt natürlich.

[Uwe Raabe]

Zitat von bernau:

Dann dürfte in der Ableitung aber kein Inherited aufgerufen werden, da ja sofort AssignError ins Spiel kommt.

Das gilt aber auch für jeden Abkömmling von TPersistent. Allerdings bietet die Assign-Implementierung von TPersistent eine Art Fallback auf AssignTo, bei dem Source die Arbeit überlässt. Das ist in der obigen TMyDictionary-Implementierung nicht vorgesehen.