Assign für TDictionary implementieren

[DCoderHH]

Zitat von Uwe Raabe:

Zeig mal die zugehörigen Uses-Anweisungen. TValue ist sowohl als generischer Typ in TDictionary als auch als relater Typ in System.RTTI deklariert. Eventuell hilft es die uses-Anwwisung etwas umzubauen.

Ich hab mal alles aus der Unit gelöscht, bis das hier übrig blieb (uses Rtti in Verbindung mit TValue in Foo verursacht das Problem):

Delphi-Quellcode:

unit MyUnit;

interface

uses
 Classes, generics.defaults, generics.Collections;

type
  TTest = class(TObject)
    procedure foo;
  end;

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

implementation

uses
  Rtti;

procedure TTest.foo;
var
  V: TValue; <-- hier kommt das TValue aus der Rtti und muss es auch!
begin
end;

procedure TMyDictionary<TKey, TValue>.Assign(Source: TObject);
var
  LKey: TKey;
  LValue: TValue;
begin
  if Source is TMyDictionary<TKey, TValue> then
  begin
    for LKey in (Source as TMyDictionary<TKey, TValue>).Keys do
    begin
      LValue := (Source as TMyDictionary<TKey, TValue>).Items[LKey];
      Add(LKey, LValue); <-- **FEHLER**
    end;
  end
end;

end.

[Stevie]

Der Scope auf Rtti.TValue ist näher als der auf den generischen Typparameter TValue. Also entweder umbenennen oder Rtti in das Interface uses verschieben. Diese Problematik hab ich auch schon of genug in meinem Dictionary Code gehabt.

Edit: Habs mal getestet, verschieben der unit bringt nichts. Ich würde die Klasse die das Rtti.TValue benutzt in eine andere Unit verfrachten, so dass sie nicht kollidieren - oder den generischen parameter umnennen, ich hab das mal so gelöst gehabt: map<tkey,t>

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

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

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

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