TCurrentResData

type TCurrentResData = class(TObject,IDbgWatchDataIntf)

public

  destructor Destroy; override;

  procedure Done;

  function RootResultData;

  property NewResultData: TWatchResultDataEx; [r]

  procedure DebugPrint();

  procedure CreatePrePrinted(); virtual;

  procedure CreateString(); virtual;

  procedure CreateWideString(); virtual;

  procedure CreateCharValue(); virtual;

  procedure CreateNumValue(); virtual;

  procedure CreatePointerValue(); virtual;

  procedure CreateFloatValue(); virtual;

  function CreateProcedure();

  function CreateProcedureRef();

  function CreateArrayValue(); virtual;

  procedure CreateBoolValue();

  procedure CreateEnumValue();

  procedure CreateSetValue();

  function CreateVariantValue();

  procedure CreateStructure();

  function CreateValueHandlerResult();

  procedure CreateError(); virtual;

  function SetPCharShouldBeStringValue;

  procedure SetTypeName();

  function SetDerefData;

  procedure SetDataAddress();

  function SetNextArrayData;

  function SetAnchestor();

  function AddField();

end;

TCurrentResData

TObject,IDbgWatchDataIntf