Add function GetEnumerator to TdwsDebuggerWatches

[Alex Bespalov]

For normal watches enumeration in for…in cycles.

[Alex Bespalov]

P.S. Maybe will be better to show my code :)

‌

         type
            TWatchEnumerator = record
               private
                  FIndex, FCountMinus1 : Integer;
                  FOwner : TdwsDebuggerWatches;
               public
                  function MoveNext : Boolean; inline;
                  function GetCurrent : TdwsDebuggerWatch; inline;
                  property Current : TdwsDebuggerWatch read GetCurrent;
            end;
         function GetEnumerator : TWatchEnumerator;

implementation

// GetEnumerator
//
function TdwsDebuggerWatches.GetEnumerator : TWatchEnumerator;
begin
   Result.FIndex:=-1;
   Result.FOwner:=Self;
   Result.FCountMinus1:=Count-1;
end;

// TWatchEnumerator.GetCurrent
//
function TdwsDebuggerWatches.TWatchEnumerator.GetCurrent : TdwsDebuggerWatch;
begin
   Result:=FOwner.Items[FIndex];
end;

// TWatchEnumerator.MoveNext
//
function TdwsDebuggerWatches.TWatchEnumerator.MoveNext : Boolean;
begin
   Result:=(FIndex<FCountMinus1);
   Inc(FIndex, Integer(Result));
end;

‌

[Alex Bespalov]

P.S. Same for Breakpoints.

[Eric Grange]

Fixed #258 added TSortedList<T>.GetEnumerator

→ <<cset 310158cee3ea>>