Assign für TDictionary implementieren

[DCoderHH]

Zitat:

Zitat von Stevie (Beitrag 1444662)

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

Danke, so mache ich es.

Zitat:

Zitat von Stevie (Beitrag 1444662)

Ü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:

Zitat von bernau (Beitrag 1444659)

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:

Zitat von DCoderHH (Beitrag 1444663)

Zitat:

Zitat von Stevie (Beitrag 1444662)

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

Danke, so mache ich es.

Zitat:

Zitat von Stevie (Beitrag 1444662)

Ü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:

Zitat von Schokohase (Beitrag 1444660)

klar, nicht einfach blind aufrufen, aber durchaus konditional aufrufbar

Das stimmt natürlich.

[TiGü]

Zitat:

Zitat von Stevie (Beitrag 1444672)

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