Question

Delphi的分割字符串或提取字符串？

得到一个字符串变量S，格式像这样：S=‘123，456，789’
怎么把S分割成变量X和Y，让 X＝‘456’ Y='789'

Answer 1

很简单
var
ss: Tstringlist;
然后在程序中
ss := tstringlist.Create;
ExtractStrings([','], [' '], pchar(S), ss);

然后你需要的字符就会被分割到ss.Strings[0]至ss.Strings[ ss.Count - 1]之间的数组中，再怎么放入x和y不用写了吧。

Answer 2

你试试吧。
var
strData:TStrings;
i:integer;
S,X,Y:string;
begin
S:='123,456,789'
strData:=TStringList.Create;
strData.CommaText:=S;
X=strData[1];
Y=strData[2];
//==================
showmessage(X+' / '+Y);
end;

追问

X=strData[1];
这句出现错误

追答

X:=strData[1];
Y:=strData[2];
(我手写的没：：：：：：：)

Answer 3

直接用copy函数不就结了？
var x,y:string;
x:=copy(s,4,3);
y:=copy(s,9,3);

追问

S是变量，有时会是'1,13,123'

追答

是以"，"为分界的吧,那就改成这样：

var p:integer;
x,y:string;
p:=pos(s,',');//取,位置
s:=copy(s,p+1,length(s)-p);//干掉第一个，前的
p:=pos(s,','); //取剩下的，前的
x:=copy(s,1,p-1);
s:=copy(s,p+1,length(s)-p);//再干掉，前的
y:=s;
思路就是这样子了，你最好写一个函数，这样子就可以随便分离字串中带特定字串分隔的东西了
对了，随便敲的代码，你修改一下吧，反正需要的是思路