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
