数组读取数据问题：(20分)

莫

莫征文

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #1

一个文本文件如下：
1，……，10，
11，……，20，
………………
91，……，100；
如何把每一个数据（1..100）依次赋值给数组ARRAY[1..100]？
20分。在线等候！

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #2

你用循环来读取，如果有','就读下个数据，当字符串来处理

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #3

用循环语句
While not EOF(filename) do
begin
ReadLn(Pingtext,s);
//判断‘，’号，写到数组中
end;

 

Z

zhenfeijin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-22

• #4

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1141650
看看这个，我刚解决了问题 pos 可以很方便的截取

 

莫

莫征文

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-24

• #5

多人接受答案了。