可以用以下函数读取:(以下是针对记录存放方式以shnow.dat为标准)
var sc:string;//文件记录一行值
s1,s2:string;//s1:上证字段;s2为1A0001字段
i,j:integer;
begin
readln('shnow.dat',sc);//读取当前记录
s1:=copy(s1,pos(sc,'.')+1,上证字段长度);//s1的内容从第一个字符'.'下一个字符开始拷贝以"上证字段字节个数"为长度的字符串
s2:=copy(s1,3+上证字段长度,s2的字节数);//读取1A0001内容
end;