Hallo,

ich hab eine eigene Klasse (TMyDictionary), die von TDictionary abgeleitet ist erstellt. Diese soll u.a. auch eine Assign-Funktion erhalten, um das ganze Dictionary in ein anderes zu kopieren. Doch es gibt in der Zeile, die mit **FEHLER** markiert ist, diesen Fehler:

markieren

Code:

Fehler E2010 Inkompatible Typen 'MeineUnit.TValue' und 'System.Rtti.TValue'

Was kann ich tun?
(Warum klappt das Zuweisen von TKey? Das von TValue auf die gleiche Art und weise aber nicht?)

zusammenfalten · markieren

Delphi-Quellcode:

interface

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

...

implementation

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
  else
    AssignError(Source, self);
end;

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.

Unabhängig vom Compilefehler: Die Signatur von Assign ist Unfug - den Source Parameter als TObject zu deklarieren ist unnötig, sowas macht nur Sinn, wenn man eine Abstrakte Basisklasse hat, wie bei TPersistent der Fall, wo erst die Ableitungen dann entscheiden, was sie annehmen - beim generischen Dictionary wohl kaum der Fall.

Zitat von Stevie:

Unabhängig vom Compilefehler: Die Signatur von Assign ist Unfug - den Source Parameter als TObject zu deklarieren ist unnötig, sowas macht nur Sinn, wenn man eine Abstrakte Basisklasse hat, wie bei TPersistent der Fall, wo erst die Ableitungen dann entscheiden, was sie annehmen - beim generischen Dictionary wohl kaum der Fall.

Auch hier macht der Source Parameter als TObject Sinn, wenn man nicht nur TDictionarys zuweisen möchte...

Zitat von DCoderHH:

Zitat von Stevie:

Unabhängig vom Compilefehler: Die Signatur von Assign ist Unfug - den Source Parameter als TObject zu deklarieren ist unnötig, sowas macht nur Sinn, wenn man eine Abstrakte Basisklasse hat, wie bei TPersistent der Fall, wo erst die Ableitungen dann entscheiden, was sie annehmen - beim generischen Dictionary wohl kaum der Fall.

Auch hier macht der Source Parameter als TObject Sinn, wenn man nicht nur TDictionarys zuweisen möchte...

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

if Source is TMyDictionary<TKey, TValue> then

Wenn du irgend etwas anders übergibst, dann erscheint auf jeden Fall ein Fehler.

Dann lieber als Source-Parameter direkt den Type TMyDictionary verwenden. Dann fällt der Fehler direkt beim Compilieren auf.

Zitat von bernau:

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

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

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

zusammenfalten · markieren

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.

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.

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?

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?

zusammenfalten · markieren

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;