Скачать: CL | DM;

Помогите пожалуйста   Найти похожие ветки 

← →
Vladimir   (2002-12-29 14:59) [0]

У меня проблема с функцией FileRead. Она не считывает из открытого файла в буфер.

Ниже приведён листинг кода:

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer;
begin
try
iFileHandle := FileOpen("D:\Test.txt", fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem( iFileLength + 1));
iBytesRead := FileRead( iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

ShowMessage(IntToStr(Integer(Buffer[5])));
//rEdit.Text := rEdit.Text + IntToStr(Integer(Buffer[i]));
finally
FreeMem(Buffer);
end;
end;

Помогите пожалуйста.

---

← →
sask ©   (2002-12-29 15:16) [1]

1. iBytesRead := FileRead( iFileHandle, Buffer^, iFileLength);
2. Поставь try после выделения памяти под буфер.
(а то может получиться нехорошая вещь - если до выделения памяти произойдет исключение)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c