例如有一字串 '"aaaaa","bbbb,dddd",cccc' 轉換成 '"aaaaa","bbbb|dddd",ccc' 不知各位有什麼好想法嗎

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;    以下範例是將空白字串置換成逗點(，)：

procedure TFORM1.Button1Click(Sender: TObject);
var
  S: String;
begin
  S:= '1234 5678'
  S:= StringReplace(S,' ',',');
end;

-- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

weychi~是想要取代特定的「,」吧? "," 之間的不取代，只取代在文字中間的「,」是嗎?     雖然有點笨的方式，也是可用    

procedure TForm1.Button1Click(Sender: TObject);
var
    s:string;
    ts:Tstrings;
    i:integer;
begin
    s:='"aaaaa","bbbb,dddd",cccc';
    ts:=TStringList.Create;
    //經觀察所得「","」「",」是不要被取代的，所以先行將這些換成不可能出現的字元#255
    ts.Text:=StringReplace(s,'","','"'#255'"',[rfReplaceAll]);
    ts.Text:=StringReplace(ts.Text,'",','"'#255,[rfReplaceAll]);        //剩下的「,」就是要被取代的，所以換成「|」
    ts.text:=StringReplace(ts.text,',','|',[rfReplaceAll]);
    //最後將之前換成#255的換回「,」
    ts.Text:=StringReplace(ts.Text,#255,',',[rfReplaceAll]);
    memo1.text:=ts.Text;
end;    

另一招

procedure TForm1.Button1Click(Sender: TObject);
var flag : bool;
    tmp : String;
    i : integer;
begin      tmp:='"aaaaa","bbbb,dddd",cccc';      flag:=false;
  for i:=1 to Length(tmp) do
      begin
        if tmp[i]='"' then flag:=not flag;
        if flag and (tmp[i]=',') then tmp[i]:='|';
      end;      ShowMessage(tmp);    end;