Boolean killt Variant-Array?

[glkgereon]

Aua.
natürlich!

Ich habe es jetzt zwar etwas anders, aber im prinzip das selbe.
Da der dyn.Array von 0 bis 3 und meine Klassen von 1 bis 4 gehen habe ich an der entsprechenden Stellen eine -1 eingefügt...

Delphi-Quellcode:

procedure TConfig.SetValue(AC: TAgentClass; CT: TConfigEnum; Value: Variant);
begin
  FData[CT][FClassMap.GetClassID(AC)-1]:=Value;
end;

Danke für diesen Hinweis