读汉字的问题

Question

读到一个字符串里然后在转化为.上证指数.1A0001.......
把这个字符串进行截取Pos（‘.’,str）
或者是copy(str,from,to)命令进行截取。就这样

Answer 1

挨个变成Char只就可以了
str:=str+Chr（）
或者直接强行转换成string or PChar给分吧！

Answer 2

可以用以下函数读取：(以下是针对记录存放方式以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;