//参考如下代码
var
S: string;
begin
S := '1,23,4,5,678,9,0';
with TStringList.Create do try
Text := StringReplace(S, ',', #13#10, [rfReplaceAll]);
ShowMessage(Text);
finally
Free;
end;
end;
用TStringList来分隔，好像只能以','作为分隔符
这段代码是我抄另一位大富翁的，不是我写的，呵呵。
//-------------------------------------------------------
// cb - 分隔字符
// 返回一个TStringList
function SplitString(const source,ch:string):TStringList;
var
temp:string;
i:integer;
begin
result:=tstringlist.Create;
temp:=source;
i:=pos(ch,source);
while i<>0 do
begin
result.Add(copy(temp,0,i-1));
delete(temp,1,i);
i:=pos(ch,temp);
end;
result.Add(temp);
end;
