Чтение из файла

← →
seacat (2002-05-17 11:14) [0]

Написал процедуру чтения из файла
ar
Form1: TForm1;
fhandle: integer;
ffilelength: integer;
buffer: pchar;
iBytesRead: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
fhandle:=fileopen(opendialog1.FileName,fmShareDenyNone);
fFileLength := FileSeek(fHandle,0,2);
fileseek(fhandle,0,0);
getmem(buffer,fFileLength + 1);
FileRead(fHandle, Buffer, fFileLength);
fileclose(fhandle);

end;
end;
При исполнении строки FileRead(fHandle, Buffer, fFileLength) происходит 998 ошибка "Нет доступа к памяти"
В чем может быть дело?

← →
Song (2002-05-17 11:16) [1]

Пушкин А.С. знает

← →
Игорь Шевченко (2002-05-17 11:21) [2]

Поправьте строчку на

FileRead(fHandle, Buffer^, fFileLength);

С уважением,

← →
seacat (2002-05-17 11:48) [3]

Спасибо, все заработало ;))

Чтение из файла Найти похожие ветки