구분자(delimiter)를 사용한 문자열 파싱(parsing)

function NextToken(var s:string; Separator:char):string;
var
  Sep_Pos : byte;
begin
  Result := '';
  if length(s)>0 then begin
   Sep_Pos := pos(Separator, s);
   if Sep_Pos >0 then begin
    Result := copy(s, 1, Pred(Sep_Pos));
    Delete(s,1,Sep_Pos);
   end
   else begin
     Result := s;
     s := '';
   end;
  end;
end;

// 예제
while length(TheString) > 0 do
begin
  NextParam := NextToken(TheString, ',');
  // etc..
end;