Текущий архив: 2003.04.21;
Скачать: 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 вся ветка

Текущий архив: 2003.04.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c