！！！请教高手，在线等待！！！

Question

To dschebei(箫剑):    大侠如何使用啊，能举个例子吗？谢了

Answer 1

a:string;
   a:=edit1.text;
这就是一个字符数组

Answer 2

for icount:=1 to Length(Edit1.Text) do
begin
  if Edit1.Text[icount] in ['0'..'9'] then
     arr[icount]:=StrToInt(Edit1.Text[icount]);//arr为你的数组
end;

Answer 3

笨方法：
可以一位一位的截取，判断当前字符是不是数字。
var
  intvar: array of integer;
  editstr: string;
  i: integer
begin
  eidtstr := trim(edit1.text);
  setlength(intvar,length(trim(edit1.text)));
  for i := 0 to length(trim(edit1.text))+1 do
     if editstr[i] in ['0'..'9'] then
       intvar[i] := editstr[i];
end;