Einzelnen Beitrag anzeigen

Schokohase
(Gast)

n/a Beiträge
 
#4

AW: Dynamisch Klassenfelder mit Superobjects füllen

  Alt 19. Aug 2019, 09:58
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;
  Mit Zitat antworten Zitat