TBaseBreakPoint

type TBaseBreakPoint = class(TRefCountedColectionItem)

protected

  FWatchData: string;

  FWatchScope: TDBGWatchPointScope;

  FWatchKind: TDBGWatchPointKind;

  FSource: string;

  FLine: Integer;

  FValid: TValidState;

protected

type

  TDbgBpChangeIndicator = (

  ciCreated,

  ciDestroy,

  ciKind,

  ciLocation,

  ciEnabled,

  ciCondition,

  ciHitCount

);

  TDbgBpChangeIndicators = set of TDbgBpChangeIndicator;

protected

  procedure MarkPropertyChanged();

  procedure MarkPropertiesChanged();

  procedure DoPropertiesChanged(); virtual;

  procedure DoExpressionChange; virtual;

  procedure DoEnableChange; virtual;

  procedure AssignLocationTo(); virtual;

  procedure AssignTo(); override;

  procedure DoHit(); virtual;

  procedure SetHitCount();

  procedure SetValid();

  function GetAddress; virtual;

  function GetBreakHitCount; virtual;

  function GetEnabled; virtual;

  function GetExpression; virtual;

  function GetHitCount; virtual;

  function GetKind; virtual;

  function GetLine; virtual;

  function GetSource; virtual;

  function GetWatchData; virtual;

  function GetWatchScope; virtual;

  function GetWatchKind; virtual;

  function GetValid; virtual;

  procedure DoEndUpdate; override;

  procedure SetBreakHitCount(); virtual;

  procedure SetEnabled(); virtual;

  procedure SetExpression(); virtual;

  procedure SetInitialEnabled(); virtual;

  procedure SetKind();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetPendingToValid();

  property BreakHitCount: Integer; [rw]

  property Enabled: Boolean; [rw]

  property Expression: string; [rw]

  property HitCount: Integer; [r]

  property InitialEnabled: Boolean; [rw]

  property Kind: TDBGBreakPointKind; [r]

  property Valid: TValidState; [r]

  procedure SetAddress(); virtual;

  procedure SetLocation(); virtual;

  procedure SetWatch(); virtual;

  property Address: QWord; [rw]

  property Line: Integer; [r]

  property Source: string; [r]

  property WatchData: string; [r]

  property WatchScope: TDBGWatchPointScope; [r]

  property WatchKind: TDBGWatchPointKind; [r]

end;

TBaseBreakPoint

TRefCountedColectionItem

TDelayedUdateItem

TObject