in Tag Integer oOder TObject schreiben

[hoika]

Hallo,
danke an Euch zwei, dass mit dem 0-65535 rettet mich

Danke


Heiko

[DeddyH]

*Pfh* und ich hatte Dir extra eine PM mit "Super Duper Code" geschrieben.

[himitsu]

"Ordentlich" wäre z.B. eine Lösung mit entsprechenden Daten-Objekten.

[Sir Rufo]

Wer XE4 sein Eigen nennt muss sich mit solchen Unarten doch nicht mehr herumschlagen. Da baut man sich einen class Helper und gut ist:

Delphi-Quellcode:

HelperForComponent = class helper for TComponent
private
  procedure SetTagObject( const Value: TObject );
  function GetTagObject: TObject;
public
  function TagObjectAs<T:class>: T;
  property TagObject: TObject read GetTagObject write SetTagObject;
end;

function HelperForComponent.TagObjectAs<T>:T;
begin
  if TagObject is T then
    Result := TagObject as T
  else
    Result := nil;
end;

Die TagObject-Referenzen selber speichert man in einem Dictionary ab.

Freundlicherweise kann man sich von einem TComponent informieren lassen, wenn dieses aus dem Speicher fliegt, um das Dictionary auch entsprechend zu bereinigen.

[hoika]

Hallo,
XE4 ist in Vorbereitung ... (wann? -> offen )

DeddyH:
den Code der PN habe ich überflogen aber einfach noch nicht verstanden ...
PS: Das passiert mit eigentlich fast nie ...
Morgen früh, 2. Versuch.

LG
Heiko