Set Konstanten einen Wert zuweisen

[uligerhardt]

Statt

Delphi-Quellcode:

var i:integer;
begin
for I := integer(Low(tDockopt_UA)) to integer(High(tDockopt_UA)) do
begin
  if tDockopt_UA(i) in opts then

würde ich eine passend typisierte Schleifenvariable nehmen, also:

Delphi-Quellcode:

var
  opt: tDockopt_UA;
begin
  for opt := Low(tDockopt_UA) to High(tDockopt_UA) do
  begin
    if opt in opts then