TSpkXMLParameter

type TSpkXMLParameter = class(TObject)

protected

  function GetValueAsInteger;

  procedure SetValueAsInteger();

  function GetValueAsExtended;

  procedure SetValueAsExtended();

  function GetValueAsColor;

  procedure SetValueAsColor();

  function GetValueAsBoolean;

  procedure SetValueAsBoolean();

public

  constructor create();

  destructor Destroy; override;

  property Name: string; [rw]

  property Value: string; [rw]

  property ValueAsInteger: Integer; [rw]

  property ValueAsExtended: extended; [rw]

  property ValueAsColor: TColor; [rw]

  property ValueAsBoolean: Boolean; [rw]

end;

TSpkXMLParameter

TObject