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

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

← →
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;

---

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

спасибо!

---

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

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



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