太笼统?那我有段程序但是运行的时候报错,你帮我看看,好吗? var vstream :TMemorystream; buf:array[0..1] of byte;be:=0; for i:=1 to num do //num 字符串的数量 begin be:=be+i-1 vstream.Seek(be,soFrombeginning); vstream.Read(buf,sizeof(buf)); s:=inttostr(buf[0],2); ..... end; 但是在循环的时候:i=2的时候就出现运行到.Seek(be,soFrombeginning);说是读取地址时出错了,发现运行时根本就是找不到 vstream,不知道为什么?
var vstream :TMemorystream;
buf:array[0..1] of byte;be:=0;
for i:=1 to num do //num 字符串的数量
begin
be:=be+i-1
vstream.Seek(be,soFrombeginning);
vstream.Read(buf,sizeof(buf));
s:=inttostr(buf[0],2);
.....
end;
但是在循环的时候:i=2的时候就出现运行到.Seek(be,soFrombeginning);说是读取地址时出错了,发现运行时根本就是找不到 vstream,不知道为什么?