SOS：delphi字符串中取字符的问题

Question

我的字符串是‘1，2，4，121，4，2，5’，怎么取出其中的数字分别放到变量里面～

Answer 1

const
  S = '1，2，4，121，4，2，5';
var
  L : TStringList;
  I : integer;
begin
  L := TStringList.Create;
  L.Text := StringReplace(S,'，',#10,[rfReplaceAll]);//注意逗号我按你的原文用的是全角的
  for I := 0 to L.Count-1 do
      showmessage(L[I]);//这里演示的是showmessage各个数字. 赋值给变量,对你来说不难了
  L.Free;
end;

Answer 2

dBASEIII(IT红颜渐衰) 不知道红颜是衰兄还是衰妹，呵呵～ 这么晚还不睡，肯定红颜渐衰哪～ 哈哈，thanks ～ 晚安