Появилась новая проблема. При использовании функций read_byte и reset приложение виснет (jsr75i). Созданный файл нормально создается и читается. Но отрываться никак не может. В чём проблема?
Program write;
uses jsr75i;
var ofile,i,opnf,byte,ss:integer;
s,savedir,hw:string;
Begin
//save
savedir:='/e:/text.txt';
s:='hello world';
file_create(savedir);
ofile:=open_file(savedir);
for i:=0 to length(s)-1 do write_byte(ord(GetChar(s,i)));
flush;
//open
opnf:=jsr75i.open_file(savedir);
if opnf<>1 then
begin
setcolor (255,255,255);
fillRect(0, 0, getwidth, getheight);
setcolor (0,0,0);
drawtext('Невозможно откр. файл',0,0);
delay(1000);
end;
jsr75i.reset;
for byte:=0 to jsr75i.file_size(savedir) do
begin
ss:=jsr75i.read_byte;
hw:=hw+ctr(ss);
end;
setcolor (255,255,255);
fillRect(0, 0, getwidth, getheight);
setcolor (0,0,0);
drawtext(hw,0,0);
delay(5000);
End.