TCollection = not TCollection ?

[EWeiss]

Zitat von NamenLozer:

Kann es sein, dass du eigentlich eine Hashmap/Dictionary suchst? Neuere Delphi-Versionen mit Generics haben glaube ich von Haus aus eine Implementierung dabei (TDictionary wenn ich mich nicht irre), bei älteren Versionen musst du selbst was basteln oder finden (von mir schwirrt hier im Forum glaube ich auch noch eine Hashmap herum).

Ich werd mal suchen und schauen ob es das ist.
Hab mir gestern mal ein handbuch mit TDictionary von Embarcadero runtergeladen wurde aber nicht so recht schlau daraus.

EDIT:

Hmm ..
procedure Add(const Key: TKey; const Value: TValue);
Sieht danach aus als wenn es das ist was ich suche bzw. umsetzen möchte.

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

gruss

[Stevie]

TCollection.Add erzeugt eine neue Instanz von der Klasse, die du beim TCollection.Create angegeben hast.

[Namenloser]

Zitat von EWeiss:

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

[Stevie]

Zitat von NamenLozer:

Zitat von EWeiss:

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

[himitsu]

Delphi-Quellcode:

  for ICtrl := 0 to FParentObj.ComponentCount - 1 do
    begin
      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then
      begin
         CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);
      end;

Und falls auch die Nachfahren der Kombonenten mit erwischt werden sollten, dann  is statt  = .


PS:

Zitat:

PWideChar

FindWindowEx + PChar + String
oder
FindWindowExW + PWideChar + WideString/UnicodeString

PSS: FindControl macht aus einem HWND ein TWinControl (aber nur in der eigenen Anwendung!)

[Namenloser]

Zitat von himitsu:

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon Ctrl.Classtype=... . is ist aber sauberer imo.

[EWeiss]

Zitat von NamenLozer:

Zitat von himitsu:

Delphi-Quellcode:

      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then

Wie wo wat? Das geht doch nicht! Das eine ist ein Objekt, das andere eine Klasse. Wenn schon Ctrl.Classtype=... . is ist aber sauberer imo.

Hab ich was verpasst?
Um was geht's ?

Ich bekomme bei meiner abfrage das korrekte Handle.

und das geht gar nicht.

Delphi-Quellcode:

  for ICtrl := 0 to FParentObj.ComponentCount - 1 do
    begin
      Ctrl := FParentObj.Components[ICtrl];

      If (Ctrl = TComboBox) or
         (Ctrl = TComboBoxEx) or
         (Ctrl = TDBLookupCombo) or
         (Ctrl = TDriveComboBox) then
      begin
         CtrHwnd := FindWindowEx(FParentObj.Handle, 0, PChar(Ctrl.ClassName), nil);
      end;

Dann müßte ich nämlich die Controls bzw.. dazugehörige Units mit einbinden.
Ich befinde mich in einer DLL und die Controls in der Anwendung.


gruss

[EWeiss]

Zitat von Stevie:

Zitat von NamenLozer:

Zitat von EWeiss:

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

Habe zwar 2009 aber Generics lassen sich nicht einbinden.

gruss

[Stevie]

Zitat von EWeiss:

Zitat von Stevie:

Zitat von NamenLozer:

Zitat von EWeiss:

Muss mich noch schlau machen wie das funktioniert.
Von dir habe ich leider nichts gefunden

Wenn du eine Version mit integriertem TDictionary besitzt, gibt es eigentlich eh keinen Grund, etwas anderes zu benutzen...

Ab Delphi 2009 siehe Generics.Collections.pas

Habe zwar 2009 aber Generics lassen sich nicht einbinden.

Wat?

Delphi-Quellcode:

uses
  Generics.Collections;

[EWeiss]

na gut hast mich überzeugt

gruss