(***********************************************************************)

(* Delphi Code Coverage *)

(* *)

(* A quick hack of a Code Coverage Tool for Delphi *)

(* by Christer Fahlgren and Nick Ring *)

(* *)

(* This Source Code Form is subject to the terms of the Mozilla Public *)

(* License, v. 2.0. If a copy of the MPL was not distributed with this *)

(* file, You can obtain one at http://mozilla.org/MPL/2.0/. *)

unit BreakPointList;

interface

uses

JclStringLists,

I_BreakPoint,

I_BreakPointList;

type

TBreakPointList = class(TInterfacedObject, IBreakPointList)

strict private

FBreakPointLst: IJclStringList;

public

function GetBreakPoint(const AIndex: Integer): IBreakPoint;

property BreakPoint[const AIndex: Integer]: IBreakPoint read GetBreakPoint; default;

function GetBreakPointByAddress(const AAddress: Pointer): IBreakPoint;

property BreakPointByAddress[const AAddress: Pointer]: IBreakPoint read GetBreakPointByAddress;

function HasBreakPointUnitModuleName(const AUnitModuleName: String): Boolean;

constructor Create;

destructor Destroy; override;

procedure Add(const ABreakPoint: IBreakPoint);

function Count: Integer;

procedure SetCapacity(const AValue: Integer);

end;

implementation

uses

System.Classes,

System.SysUtils;

constructor TBreakPointList.Create;

begin

inherited;

FBreakPointLst := TJclStringList.Create;

FBreakPointLst.Sorted := True;

FBreakPointLst.Duplicates := dupError;

end;

destructor TBreakPointList.Destroy;

begin

FBreakPointLst := nil;

inherited;

end;

function TBreakPointList.GetBreakPoint(const AIndex: Integer): IBreakPoint;

begin

Result := IBreakPoint(FBreakPointLst.Interfaces[AIndex]);

end;

function TBreakPointList.Count: Integer;

begin

Result := FBreakPointLst.Count;

end;

procedure TBreakPointList.Add(const ABreakPoint: IBreakPoint);

begin

FBreakPointLst.KeyInterface[IntToHex(Integer(ABreakPoint.Address), 8)] := ABreakPoint;

end;

function TBreakPointList.GetBreakPointByAddress(const AAddress: Pointer): IBreakPoint;

begin

Result := IBreakPoint(FBreakPointLst.KeyInterface[IntToHex(Integer(AAddress), 8)]);

end;

function TBreakPointList.HasBreakPointUnitModuleName(const AUnitModuleName: String): Boolean;

begin

Result := FBreakPointLst.IndexOf(AUnitModuleName) > 0;

end;

procedure TBreakPointList.SetCapacity(const AValue: Integer);

begin

FBreakPointLst.Capacity := AValue;

end;

end.