Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

File of...   Найти похожие ветки 

← →
Влад   (2007-01-05 20:54) [0]

Столкнулся с такой проблемой. При размере файла, кратном 8 (2 longword"a) нижеследующий код работает прекрасно. Однако если размер не кратен 8, то конец файла "обрезается". Конечно, можно читать файл побайтно, но тогда проигрываешь в оптимизации. Подскажите пожалуйста решение этой проблемы.

var fi,fo:file of longword;
L,R:longword;
begin
assignfile(fi,f_in);
reset(fi);
assignfile(fo,f_out);
rewrite(fo);
while not eof(fi) do begin
read(fi,L,R);
....//преобразования
write(fo,L,R);
end;
closefile(fi);
closefile(fo);
end;

---

← →
Palladin ©   (2007-01-05 20:55) [1]

blockread + F1
TFileStream + F1

---

← →
Влад   (2007-01-05 20:58) [2]

А поподробнее?

---

← →
Влад   (2007-01-05 21:03) [3]

Blockread - то же самое, дальше Count*RecSize не читает.

---

← →
Palladin ©   (2007-01-05 21:09) [4]

для особо одаренных

var
buf:array [1..32768] of byte;
f:file;
i,n:integer;

assignfile(f,...); reset(f,1);
repeat
blockread(f,buf,sizeof(buf),n);
for i:=1 to n do четоделаемсбайтом(buf[i]);
until n=0;
closefile(f);

---

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

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.049 c