如:
procedure trecordstream.previousrec;
begin
if (position-getrecsize>=0) then
seek(-getrecsize,sofromcurrent)
else
raise exception.create('cannot read beyond beginning of the file.');
end; 文件指针不向前移动。
procedure trecordstream.previousrec;
begin
if (position-getrecsize>=0) then
seek(-getrecsize,sofromcurrent)
else
raise exception.create('cannot read beyond beginning of the file.');
end; 文件指针不向前移动。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货