B
brt
Unregistered / Unconfirmed
GUEST, unregistred user!
数据源A由若干组相同的记录组成：
time:integer;//20020606
code:array[0..6] of char;//600001
open,close,hight,low:single;
vol,amo:double;
追加方法：
以CODE为文件名进行追加，如文件不存在
创建后追加，并用TIME来确定追加的位置
EG：
数据源A中CODE包括600001,600002,600003......等
程序初次执行后将创建与CODE名相符的文件，如：
600001.dat,600002.dat,600003.dat......等，并写入
一组数据，以后执行时，按TIME值大小添加到最前面或
插入最相邻的两个数值之间或追加到文件尾部。
追加后的每个文件数据格式：
time:integer;
open,close:integer;//数据源A*1000
hight,low:double;
vol,amo:single;
哪位雷锋给段代码，2000条记录/30秒 谢谢：）
time:integer;//20020606
code:array[0..6] of char;//600001
open,close,hight,low:single;
vol,amo:double;
追加方法：
以CODE为文件名进行追加，如文件不存在
创建后追加，并用TIME来确定追加的位置
EG：
数据源A中CODE包括600001,600002,600003......等
程序初次执行后将创建与CODE名相符的文件，如：
600001.dat,600002.dat,600003.dat......等，并写入
一组数据，以后执行时，按TIME值大小添加到最前面或
插入最相邻的两个数值之间或追加到文件尾部。
追加后的每个文件数据格式：
time:integer;
open,close:integer;//数据源A*1000
hight,low:double;
vol,amo:single;
哪位雷锋给段代码，2000条记录/30秒 谢谢：）