TDictionary problem mit Types

[EWeiss]

Die Types

Delphi-Quellcode:

  TDeviceIcon = (DesktopMicrophone, Digital, Headphones, Headset,
    Kinect, LineIn, Phone, Speakers, StereoMix, Monitor, Unknown);

  TIndex = string;
  TIconMap = TDictionary<TDeviceIcon, TIndex>;

Ich definiere die Procedure so.
Warum wird dann der Type DeviceIcon ignoriert bzw.. es wird ein Fehler gemeldet.

Delphi-Quellcode:

procedure TAudioVolume.Dictionary(Index: TIndex; DeviceIcon: TDeviceIcon);
var
  IconMap: TDictionary<DeviceIcon, Index>;

Nach meinem Verständnis sollte das eigentlich OK sein aber der Compiler will unbedingt TDeviceIcon, TIndex.

Das schlägt also fehl..

Delphi-Quellcode:

    IconMap := TDictionary<DeviceIcon, Index>.Create();
    IconMap.Add(DeviceIcon.Speakers, '0');
    IconMap.Add(DeviceIcon.Speakers, '1');

Auch das hier!
    IconMap.Add(DeviceIcon.Speakers, '1');

Aber ich brauche diesen Eintrag mehrmals..
Deshalb weil das Icon mehrmals in der Ressource vorhanden ist.

RESSOURCENNAME 3004
RESSOURCENNAME 3010
RESSOURCENNAME 3019
RESSOURCENNAME 3030
RESSOURCENNAME 3050

Ich muss jedem einzelnen den Type DeviceIcon.Speakers zuweisen.

gruss

[KodeZwerg]

Zitat von EWeiss:

TIconMap = TDictionary<TDeviceIcon, TIndex>; der Compiler will unbedingt TDeviceIcon, TIndex.

Ist das dann nicht der Fehler?

[Zacherl]

Zitat von KodeZwerg:

Zitat von EWeiss:

TIconMap = TDictionary<TDeviceIcon, TIndex>; der Compiler will unbedingt TDeviceIcon, TIndex.

Ist das dann nicht der Fehler?

Genau, da hast du nur das T vergessen.

Delphi-Quellcode:

procedure TAudioVolume.Dictionary(Index: TIndex; DeviceIcon: TDeviceIcon);
var
  IconMap: TDictionary<DeviceIcon, TIndex>; // <-- TIndex statt Index

bzw. da du dir ja schon einen Typ definiert hast, am besten:

Delphi-Quellcode:

procedure TAudioVolume.Dictionary(Index: TIndex; DeviceIcon: TDeviceIcon);
var
  IconMap: TIconMap;

[EWeiss]

Zitat:

Genau, da hast du nur das T vergessen.

Nein ich habe es nicht vergessen..
Denn Index ist als TIndex definiert.

Welchen sinn macht eine definition wenn sie nicht verwendet wird?
Das ist ja mein Problem und unverständlich für mich.

Index: TIndex; in der Procedure.

Das müsste dann so aussehen

Delphi-Quellcode:

IconMap.Add(DeviceIcon.Speakers, '0');

IconMap.Add(DeviceIcon.Speakers, Index('0'));

Oder?

gruss

[Zacherl]

Doch doch, du hast da grade einen Denkfehler. Dein Typ ist eben TIndex (mit T ). Und die Deklaration der Variable IconMap erfordert nun eben einen generischen Typ und keine konkrete (Variablen-)Instanz - in deinem Falle Index (ohne T ) - vom entsprechenden Typ (ist so bisschen wie der Vergleich Klasse vs. Objekt(instanz)). Weiter unten die Versuche mit IconMap.Add(DeviceIcon.Speakers, '0') sind korrekt und sollten auch funktionieren, wenn du die von mir oben beschriebenen Änderungen durchführst.

[EWeiss]

Zitat von Zacherl:

Doch doch, du hast da grade einen Denkfehler. Dein Typ ist eben TIndex (mit T ). Und die Deklaration der Variable IconMap erfordert nun eben einen generischen Typ und keine konkrete (Variablen-)Instanz - in deinem Falle Index (ohne T ) - vom entsprechenden Typ (ist so bisschen wie der Vergleich Klasse vs. Objekt(instanz)). Weiter unten die Versuche mit IconMap.Add(DeviceIcon.Speakers, '0') sind korrekt und sollten auch funktionieren, wenn du die von mir oben beschriebenen Änderungen durchführst.

Ahh ok dann habe ich das verstanden..
Aber es kracht wenn ich zweimal den gleichen Aufruf verwende.

Delphi-Quellcode:

    IconMap.Add(DeviceIcon.Speakers, '0');
     IconMap.Add(DeviceIcon.Speakers, '1');

beim 2.ten

Hoffe mal nach der Änderung nicht mehr.
Und was mache ich dann mit dem TIndex?

irgendwie sinnlos.. Hmmm

gruss

[Zacherl]

Zitat von EWeiss:

Aber es kracht wenn ich zweimal den gleichen Aufruf verwende.

Delphi-Quellcode:

    IconMap.Add(DeviceIcon.Speakers, '0');
     IconMap.Add(DeviceIcon.Speakers, '1');

beim 2.ten

Hoffe mal nach der Änderung nicht mehr.

Doch, leider schon. Das TDictionary ist eine flache Map, deshalb darf jeder Key (also dein TDeviceIcon Wert) darin nur einmal vorkommen. Was du suchst ist eine TList<TPair<TDeviceIcon, TIndex>> . Oder alternativ natürlich auch TDictionary<TDeviceIcon, TArray/TList<TIndex>> . Wenn du eher wenige Einträge hast, nimm die Liste (ist einfacher).

[EWeiss]

Hmmm.. nicht so einfach der Kram mit Generics..
Werde es mal testen.
Vielleicht reicht auch eine ganz einfache TStringlist.

Ich glaube ich lasse es zu viel ärger. DAnke.

gruss

[KodeZwerg]

Zitat von EWeiss:

Hmmm.. nicht so einfach der Kram mit Generics..

Da geb ich Dir Recht weswegen ich mehr als einmal meinen Ersten Post bearbeiten musste eh ichs halbwegs Verstand was daran Fehlerhaft sein könnte, bei mir war es nur eine Vermutung, schön das es jemand mit mehr skills bestätigen konnte.

[EWeiss]

Zitat von KodeZwerg:

Zitat von EWeiss:

Hmmm.. nicht so einfach der Kram mit Generics..

Da geb ich Dir Recht weswegen ich mehr als einmal meinen Ersten Post bearbeiten musste eh ichs halbwegs Verstand was daran Fehlerhaft sein könnte, bei mir war es nur eine Vermutung, schön das es jemand mit mehr skills bestätigen konnte.

Du must ja auch nicht auf jeden Beitrag antworten

Egal hat sich erledigt!
Habe es auf anderer weise geregelt und funktioniert nun alles.

gruss