Man könnte auch mit einem Dictionary arbeiten und dieses direkt verwenden oder auch indirekt
Delphi-Quellcode:
TProjectComponents = class
private
FComponents: TDictionary<string,boolean>;
function GetComponent1:Boolean;
public
property Component1: Boolean read GetComponent1;
end;
function TProjectComponents.GetComponent1: Booelan;
var
val: Boolean;
begin
Result := FComponents.TryGetValue('component1', val ) and val;
end;