Versions Compared

Old Version 3

changes.mady.by.user Alejandra Rivera

Saved on

compared with

New Version 4

changes.mady.by.user Alejandra Rivera

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Comment: Migration of unmigrated content due to installation of a new plugin

...

  • ++++++++++++++++++++++++++++++++++++

  • Wiki Markup
    A string collection - GET
#LBol6601 := False
If (#LCls6601_Coll.Item\[2\] = "Test2")
#LBol6601 := True
Else
#LBol6601 := False
Endif
 

  • ++++++++++++++++++++++++++++++++++++

  • Wiki Markup
    A string collection - SET
 
#LCls6601_Coll.Item\[0\] := 'NewValue0'
#LCls6601_Coll.Item\[1\] := 'NewValue1'
#LCls6601_Coll.Item\[2\] := 'NewValue2'
If (#LCls6601_Coll.Item\[1\] = 'NewValue1')
#LBol6601 := True
Else
#LBol6601 := False
Endif
.NET enumerator
Define Field(#LNum6401) Type(*INT)
Define Field(#LNum6402) Type(*INT)
Define Field(#LStr6401) Type(*STRING) Length(20)
Define Field(#LBol6401) Type(*BOOLEAN)
 
Define_Com Class(#DNE003_SystemDll.System.Collections.Specialized.StringCollection) Name(#LClass6401_Coll) Reference(*DYNAMIC)
Define_Com Class(#DNE003_SystemDll.System.Collections.Specialized.StringEnumerator) Name(#LClass6402_Enum) Reference(*DYNAMIC)
 
#LClass6401_Coll <= *New #DNE003_SystemDll.System.Collections.Specialized.StringCollection
 
#LStr6401 := 'Test'
#LClass6401_Coll.Add( 'Test1' )
#LClass6401_Coll.Add( 'Test2' )
#LClass6401_Coll.Add( 'Test3' )
 

  • ++++++++++++++++++++++++++++++++++++
  • Use Enumerator
     
    #LClass6402_Enum <= #LClass6401_Coll.GetEnumerator()
    #LNum6401 := 0
    #LBol6401 := true
    #LClass6402_Enum.Reset()
    Dowhile Cond(#LClass6402_Enum.MoveNext())
    #LNum6401 += 1
    If (#LClass6402_Enum.Current <> (#LStr6401 + #LNum6401.AsString))
    #LBol6401 := false
    Endif
    Endwhile
     
    If (#LBol6401)
    #STD_TEXT := 'Success'
    Else
    #STD_TEXT := 'Failed'
    Endif