(

string AllValues,val longint Position,string Separator,var string OneVal)

Description:

Loops through the substring values


Parameters:
AllValues	A set of substrings
Position	The absolute start position of the value item in the substring
Separator	Value separator
OneVal	One substring

global
procedure OnApplicationStartup() 
begin
  string 255 substr;
  longint pos;
  string 20 onestr;
  
  substr = "SALESMAN1,SALESMAN8,SALESMAN10,SALESMAN9,SALESMAN14,SALESMAN21";
  
  while (GetNextSubstring(substr,pos,",",onestr)) begin
    stopalert(pos & ":" & onestr);
  end;
  
  return;
end;


Related topics:

««