如何快速向一个大数组赋值?晕.....(0分)

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #1

各位富翁们:
有谁能够帮我解决这个问题呀?困扰很久了
我有一INI文件,如下:
BIG5Order[0]=$A1A1
BIG5Order[1]=$A3AC
BIG5Order[2]=$A1A2
BIG5Order[3]=$A1A3
......
BIG5Order[13972]=$A888

怎样能够迅速将其读入到一个数组中去BIG5Order: array[0..13792] of word中去
我的程序用了几分钟才写完,有谁可以用几秒或者几什秒读完呀,当然是越快越好了?
有谁有这么快的算法,小弟感激不尽啊.

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #2

做成bin文件就最快了.

 

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #3

什么意思?楼上的可否说清楚点呀.

 

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #4

很急的问题,大家帮帮忙吧.没有分给了,就当行善了,哈....
知道的朋友千万要回贴呀

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #5

var
fStream: TFileStream;
begin
fStream := TFileStream.Create('c:/abc.dat', fmCreate or fmReadWrite);
try
{ 写 }
fStream.Write(BIG5order, SizeOf(BIG5Order));
{ 读 }
fStream.Read(BIG5order, SizeOf(BIG5Order));
finally
fStream.free;
end;
end;

 

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #6

楼上的,我还是没搞懂哎,可否再讲清楚点呢?谢谢了

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #7

楼上的楼上已经说得很清楚了

 

L

lichdr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #8

楼上上上的代码都给出了。。。
主旨就是把那一堆十六进制的东西放到文件中，然后用流把其写入数组

 

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-09

• #9

但是我试过,并没有把我文件中的数据读过去呀,我主要是想把
$A1A1放到BIG5Order[0]中去,$A3AC放到BIG5Order[1]中,但是如果一条一条读取,速度太慢,用流进行操作,小弟又没有试过,用那个程序我试过不行,还请明示.谢谢!

 

S

ssjyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-10

• #10

我要读取=号后面的内容,怎么快速读取呀,怎么没有人回答呢?班主们帮帮忙吧

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-11

• #11

这样一行一行读取，并不需要几分钟啊，30秒左右。


var i:integer;
myini:Tinifile;
BIG5Order: array[0..13792] of string;
ch:string;
begin

myini:=Tinifile.Create('c:/1.ini');
for i:=0 to 13792 do
BIG5Order:=myini.readString('xxx','BIG5Order['+inttostr(i)+']','');
myini.Free ;
showmessage('ok');
end;