Ok hier etwas Pseudocode, ohne Funktionalität, aber hoffentlich verständlich
Delphi-Quellcode:
procedure ErstelleInstanz(SetRootCount: Boolean);
begin
_UserData := TUserData.Create;
_UserData.Index := _UserDataClasses.Count;
_UserData.A := 1;
_UserData.B := 2;
...
...
if SetrootCount then
_VST.RootNodeCount := _UserDataClasses.Count;
end;
Delphi-Quellcode:
procedure SchnickSchnack_A;
begin
von 0 bis 100
begin
ErstelleInstanz(True);
end;
end;
// ODER
procedure SchnickSchnack_B;
begin
von 0 bis 100
begin
ErstelleInstanz(False);
end;
_VST.RootNodeCount := _UserDataClasses.Count;
end;
Ich hoffe du verstehst was ich meine
