Set Konstanten einen Wert zuweisen

[Uwe Raabe]

Zitat von DrUArn:

Über tcomponent.TAG speichere ich verschieden Eigenschaften ines objects (hier ist's ein trichedit).

In dem Fall hätte ich mir schon längst einen Class-Helper für TRichEdit geschrieben (oder für TWinControl oder TComponents , je nachdem was gebraucht wird):

Delphi-Quellcode:

type
  TRichEditHelper = class helper for TRichEdit
  private
    function GetDockOpts_UA: tDockOpts_UA;
    procedure SetDockOpts_UA(const Value: tDockOpts_UA);
  public
    property DockOpts_UA: tDockOpts_UA read GetDockOpts_UA write SetDockOpts_UA;
  end;

function TComponentsHelper.GetOpts: tDockOpts_UA;
begin
  Result := tDockOpts_UA(Tag);
end;

procedure TComponentsHelper.SetOpts(const Value: tDockOpts_UA);
begin
  Tag := Integer(Value);
end;

Was du mit den gezeigten Schleifen eigentlich erreichen willst, erschließt sich mir noch nicht. Wie ich das sehe, werden in SetTag immer alle Optionen gesetzt.