如何在正则表达式中跳过引用的文本(或如何在Unicode文本中使用Hy

我需要正则表达式帮助创建一个delphi函数来替换Rad Studio XE2中的HyperString ParseWord函数. HyperString是一个非常有用的字符串库,从未跳转到Unicode.我得到它主要工作,但它根本不尊重引用分隔符.我需要它与下面描述的功能完全匹配：

function ParseWord(const Source,Table:String;var Index:Integer):String;

Sequential,left to right token parsing using a table of single
character delimiters. Delimiters within quoted strings are ignored.
Quote delimiters are not allowed in Table.

Index is a pointer (initialize to ‘1’ for first word) updated by the
function to point to next word. To retrieve the next word,simply
call the function again using the prior returned Index value.

Note: If Length(Resultant) = 0,no additional words are available.
Delimiters within quoted strings are ignored. (my emphasis)

这是我到目前为止：

function ParseWord( const Source,Table: String; var Index: Integer):string;
var
  RE : TRegEx;
  match : TMatch;
  Table2,chars : string;
begin
  if index = length(Source) then
  begin
    result:= '';
    exit;
  end;

  // escape the special characters and wrap in a Group
  Table2 :='['+TRegEx.Escape(Table,false)+']';
  RE := TRegEx.create(Table2);
  match := RE.Match(Source,Index);
  if match.success then
  begin
    result := copy( Source,Index,match.Index - Index);
    Index := match.Index+match.Length;
  end
  else
  begin
    result := copy(Source,length(Source)-Index+1);
    Index := length(Source);
  end;
end;

  while ( Length(result)= 0) and (Index<length(Source)) do
  begin
    Inc(Index);
    result := ParseWord(Source,Table,Index);
  end;

欢呼和谢谢.

Table2 := '''[^'']+''|"[^"]+"|[^' + TRegEx.Escape(Table,false) + ']+';