字符串列表去除 , 问题

Question

我有一个字符串列表S1（TstringList类型，s1.Delimiter := ','），每组7个号码，每个号码为1-30之间的数，每个号码可能是1位数，也可能是2位数，如
1,2,3,4,5,6,7
2,3,4,5,6,7,8，
12,5,16,7,18,19,25
......现在我要去除每行中的所有逗号（,）并要保持,前后的数字仍为独立的数字，也就是不相互粘连，因为后面还要用 for j:=1 to Length(mstr) do 语句调用每行号码中的各个数字进行运算，如12,5,16,7,18,19,25这行，去除,后要使12 5 16 7 18 19 25能被独立调用参与运算，如何实现？最好上代码，谢谢。

Answer 1

使用StringReplace进行操作 要替换,号还是分割字符串都可以

Answer 2

var
  str: string;
begin
  str := '12,5,16,7,18,19,25';
  ShowMessage(StringReplace(str,',',' ',[rfReplaceAll]));
end;