Низкоуровневый доступ к файлу

← →
OlegM © (2003-04-11 09:58) [0]

Здрассте!
Нужна помощь! Мне нужно прочитать все из файла, но я незнаю как
побежатся по нему всему, читается только первый байт. Подскажите кто знает.
*************
var
f:Integer;
s:byte;
begin
f:=FileOpen("abs.exe", fmOpenReadWrite);
if f<>-1 then
begin
Fileread(f,s,1);
richedit1.Lines.Add(inttostr(s));
end;
fileclose(f);
end;
***********

← →
крот © (2003-04-11 10:07) [1]

TFileStream

← →
Palladin © (2003-04-11 10:37) [2]

var
f:Integer;
s:byte;
begin
f:=FileOpen("abs.exe", fmOpenReadWrite);

while FileRead(f,s,1)<>0 do richedit1.Lines.Add(inttostr(s));
fileclose(f);
end;

спасибо!

Низкоуровневый доступ к файлу Найти похожие ветки