Чтение из файла. В чем ошибка?

← →
Dilezzz (2003-09-07 14:48) [0]

var F1:file; P:Pchar; FS:integer; begin if OpenDialog1.Execute then begin assignfile(F1,OpenDialog1.FileName); reset(F1,1); fs:=FileSize(F1); getmem(str,fs); blockread(F1,str,fs); closefile(F1); end;

Вылетает ошибка i/o error 998 (что это?) на строчке
blockread(F1,str,fs);

← →
Chris (2003-09-07 15:09) [1]

http://mech.math.msu.su/~vfnik/WinApi/other/errorcodes.html

← →
Dilezzz (2003-09-07 15:23) [2]

Chris, и чего?

← →
muravey (2003-09-07 15:41) [3]

а ты help смотрел?
исправь blockread(F1,str,fs)на blockread(F1,str^,fs);

← →
Chris (2003-09-07 16:03) [4]

Из справки по Delphi. GetMem example

var
F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F, "test.txt");
Reset(F, 1);
try
Size := FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
ProcessFile(Buffer, Size);
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;

end;

Чтение из файла. В чем ошибка? Найти похожие ветки