INT %GetStrItemsCount(
   TEXT in string,
   TEXT in delimiter
 )

 %GetStrItemsCount("Jano;Ivan;Karol;Jozef;Martin",";") ; funkcia vráti hodnotu 5
 
 ; výsledné hodnoty funkcií v určitých špecifických prípadoch
 INT _i
  TEXT _tStr,_tStrTest
 
 _tStrTest := "asdf"
 _i := %GetStrItemsCount(_tStrTest,";")  ;_i = 1
  _tStr := %GetStrItem(_tStrTest,1,";")   ;_tStr = "asdf"
 
  _tStrTest := "asdf;"
 _i := %GetStrItemsCount(_tStrTest,";")   ;_i = 2
 _tStr := %GetStrItem(_tStrTest,1,";")   ;_tStr = "asdf"
 _tStr := %GetStrItem(_tStrTest,2,";")   ;_tStr = ""
 
 _tStrTest := ""
 _i := %GetStrItemsCount(_tStrTest,";")  ;_i = 1
 _tStr := %GetStrItem(_tStrTest,1,";")   ;_tStr = ""
 _tStr := %GetStrItem(_tStrTest,2,";")    ;_tStr = ""
 
 _tStrTest := ";"
  _i := %GetStrItemsCount(_tStrTest,";")   ;_i = 2
 _tStr := %GetStrItem(_tStrTest,1,";")   ;_tStr = ""
 _tStr := %GetStrItem(_tStrTest,2,";")   ;_tStr = ""