关于字符串处理,大字请进!

[Sunniness]

请问大家有什么办法处理半角括号里的　(')
这个字符吗？


比如: 一个字符串是:

'abcdefdf'fdsfsdfds '
中间夹了一个(')半角字符，有什么办法可以把这个字符串替换成全角的！急求大家！

[zswangII]

S := StringReplace(S, '''', '＇', [rfReplaceAll]);

[fei19790920]

KAO，楼上的没人性，连20分都不放过！！！

[Sunniness]

万分感谢!

[Shadow_boy]

分割字符串，将其存入StringList
strlist := TStringList.Create;
s:=Memo1.Text;
for i:=1 to length(s) do
begin
nPos:=Pos('____',s);
if nPos>0 then
begin
strlist.Add(Copy(s,1,nPos-1));
s:=copy(s,nPos+4,length(s)-nPos);
end
else if (nPos=0) and (i>1) then
begin
strlist.Add(S);
break;
end;
end;
for i:=0 to strlist.Count-1 do
showmessage(strlist.Strings[i]);
------------------------------------
体验速度,体验CSDN新版论坛助手:http://community.csdn.net/Expert/TopicView.asp?id=3108679