TFPReportVariable

type TFPReportVariable = class(TCollectionItem)

protected

  procedure ReleaseExpressionNodes;

  procedure InitializeExpression();

  procedure ExtractDataName();

  procedure GetRTValue(); virtual;

  procedure GetRTExpressionValue(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Assign(); override;

  procedure InitExpressionValue();

  procedure UpdateExpressionValue();

  procedure DoneExpressionValue();

  procedure WriteElement(); virtual;

  procedure ReadElement(); virtual;

  property AsExpressionResult: TFPExpressionResult; [rw]

  property AsString: string; [rw]

  property AsInteger: Int64; [rw]

  property AsBoolean: Boolean; [rw]

  property AsFloat: TExprFloat; [rw]

  property AsCurrency: Currency; [rw]

  property AsDateTime: TDateTime; [rw]

published

  property Name: string; [rw]

  property DataType: TResultType; [rw]

  property Value: string; [rw]

  property Expression: string; [rw]

  property ResetValueExpression: string; [rw]

  property ResetType: TFPReportResetType; [rw]

end;

TFPReportVariable

TObject