Changeset 542 for trunk/ab5.0/ablib/src/Classes/System/Delegate.ab
- Timestamp:
- Jul 13, 2008, 2:29:17 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Delegate.ab
r352 r542 29 29 30 30 Sub _Add( dg As DelegateBase ) 31 Dim i As Long 32 For i=0 To ELM(dg.simpleDelegates.Count) 33 simpleDelegates.Add( dg.simpleDelegates[i] ) 34 Next 31 If Not ActiveBasic.IsNothing(dg) Then 32 Dim i As Long 33 For i=0 To ELM(dg.simpleDelegates.Count) 34 simpleDelegates.Add( dg.simpleDelegates[i] ) 35 Next 36 End If 35 37 End Sub 36 38 37 39 Sub _Delete( dg As DelegateBase ) 38 Dim i As Long 39 For i=0 To ELM(This.simpleDelegates.Count) 40 Dim i2 As Long 41 Dim isExist = False 42 For i2=0 To ELM(dg.simpleDelegates.Count) 43 If This.simpleDelegates[i].IsEqual( dg.simpleDelegates[i2] ) Then 44 isExist = True 40 If Not ActiveBasic.IsNothing(dg) Then 41 Dim i As Long 42 For i=0 To ELM(This.simpleDelegates.Count) 43 Dim i2 As Long 44 Dim isExist = False 45 For i2=0 To ELM(dg.simpleDelegates.Count) 46 If This.simpleDelegates[i].IsEqual( dg.simpleDelegates[i2] ) Then 47 isExist = True 48 End If 49 Next 50 If isExist Then 51 This.simpleDelegates.RemoveAt( i ) 45 52 End If 46 53 Next 47 If isExist Then 48 This.simpleDelegates.RemoveAt( i ) 49 End If 50 Next 54 End If 51 55 End Sub 52 56
Note:
See TracChangeset
for help on using the changeset viewer.