如何把字符串中的数字以整形变量的形式赋值到数组中(50分)

L

linzi0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #1

问题：s1 := '123456789';
现在要把s1中的每个数字赋值到数组中，结果要为：
num : array[1..9] of integer;
num[1],num[2],..num[9]分别为：1，2，3，4，5，6，7，8，9。
怎么样编写最简洁高效？

 

埃

埃及使者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #2

var i,j:integer;
j:=0;
for i:=1 to length(s1) do
if si in ['1','2','3','4','5','6','7','8','9'] then
begin
num[j]:=ord(si);
j:=j+1;
end;
方法很拙，就当是抛了块儿砖吧：》

 

L

linzi0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-15

• #3

接受答案了.