Assign für TDictionary implementieren

[DCoderHH]

Zitat von Stevie:

oder den generischen parameter umnennen, ich hab das mal so gelöst gehabt: map<tkey,t>

Danke, so mache ich es.

Zitat von Stevie:

Übrigens die Schleife über die Keys und dann das Lookup jedes Wertes ist denkbar inperformant. Dann doch lieber direkt mit einer TPair<TKey,TValue> variable per for in über das Dictionary.

Hast Du ein kurzes Beisipel dafür?

[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.

[TiGü]

Zitat von DCoderHH:

Zitat von Stevie:

oder den generischen parameter umnennen, ich hab das mal so gelöst gehabt: map<tkey,t>

Danke, so mache ich es.

Zitat von Stevie:

Übrigens die Schleife über die Keys und dann das Lookup jedes Wertes ist denkbar inperformant. Dann doch lieber direkt mit einer TPair<TKey,TValue> variable per for in über das Dictionary.

Hast Du ein kurzes Beisipel dafür?

Delphi-Quellcode:

type
  TMyDictionary<TKey, T> = class(TDictionary<TKey, T>)
  public
    procedure Assign(Source: TObject); virtual;
  end;


procedure TMyDictionary<TKey, T>.Assign(Source: TObject);
var
  LPair: TPair<TKey, T>;
  LSourceDictionary: TMyDictionary<TKey, T>;
begin
  if Source is TMyDictionary<TKey, T> then
  begin
    Self.Clear // ohne Clear -> kein richtiges Assign
    LSourceDictionary := TMyDictionary<TKey, T>(Source);
    for LPair in LSourceDictionary do
    begin
      Self.Add(LPair.Key, LPair.Value);
    end;
  end
end;

[Stevie]

Übrigens fehlt da wohl noch ein Self.Clear, sonst isses kein Assign sondern ein Hinzufügen - und dann braucht es auch kein AddOrSetValue sondern ein Add genügt, denn es können keine Keys schon existieren.

[bernau]

Zitat von Schokohase:

klar, nicht einfach blind aufrufen, aber durchaus konditional aufrufbar

Das stimmt natürlich.

[TiGü]

Zitat von Stevie:

Übrigens fehlt da wohl noch ein Self.Clear, sonst isses kein Assign sondern ein Hinzufügen - und dann braucht es auch kein AddOrSetValue sondern ein Add genügt, denn es können keine Keys schon existieren.

Stimmt, guter Hintweis.
So ist es nur eine Art Append anstatt Assign.