【搞定】[请求]字符串数组转换成整型数组的问题。**

bzlhfh213

我现在的需求是这样的：有一个字符串S ：string ;
他的值的格式用逗号分隔     S := '10,20,30,40';
   
我现在想将该S转换成一个字符串数组Slist[];元素值为S里的每个逗号分隔的值；

然后我再将该Slist[]赋值给一个整型数组A[];请问这个在X3里怎么实现。

lisb

static procedure SplitStrEx(Splitter: string; S: string; AStrings: TStrings);

bzlhfh213

小宝能说得详细点吗，那个方法是字符串转换字符串数组？支持我说的那个S字符串格式的吗?
能给个试例吗

lisb

2楼的函数是可以把你的字符串按逗号分割后放到一个TStringList对象里，然后你可以自己定义数组把StringList对象里的字符串赋给数组。

bzlhfh213

Splitter: string;
这个参数是指什么呢？

lisb

分割符，此处传入的就是逗号（‘,’）

bzlhfh213

噢，非常感谢

bzlhfh213

var s : string;
    i,j : integer;
    slist : TStrings;
    x : array of integer;


begin
     JsCommon.SplitStrEx(',','101,22,22',slist);
     i := slist.count;
     setlength(x,i);
     for j := 0 to length(x) -1 do
     begin
       x[j] := sysutils.StrToInt(slist[j]);
     end;

end;
－－－请问我这样做对吗？

zfang

你这样写，不太对
请参考如下代码：
procedure TMainForm.Button1Click(Sender: TObject);
var
  lStrings :TStrings;
  i : Integer;
begin
  Memo1.Clear;
  lStrings := TStringList.Create;
  try
    JsCommon.SplitStrEx(',','101,22,22',lStrings);
    for i := 0 to lStrings.Count - 1 do
      Memo1.Lines.Add(lStrings);
  finally
    lStrings.free;
  end;
end;

lisb

procedure TMainForm.Button1Click(Sender: TObject);
var
  s : string;
  i,j : integer;
  slist : TStrings;
  x : array of integer;
begin
  slist := TStringList.Create;
  try
    JsCommon.SplitStrEx(',','101,22,22',slist);
    i := slist.count;
    setlength(x,i);
    for j := 0 to length(x) -1 do
    begin
      x[j] := sysutils.StrToInt(slist[j]);
    end;
  finally
    slist.Free;
  end;
end;