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

Вниз

AV   Найти похожие ветки 

← →
Dennis I. Komarov ©   (2009-08-06 11:51) [0]

Чего-то не проснулся что ли:

GetMem(Buf, S2-S1);
try
 FileSeek(F1, S1, 0);
 FileRead(F1, Buf, S2-S1);
 FileSeek(F2, 0, 2);
 FileWrite(F2, Buf, S2-S1);
finally
 FreeMem(Buf);
end;

F1 - открыт на чтение, F2 на запись.
S - размеры соотв. файлов.

Процедуры с файлами отрабатывают нормально, на FreeMem ловим AV...

Why?

---

← →
Palladin ©   (2009-08-06 11:55) [1]

FileRead(F1, Buf^, S2-S1);
и врайте тоже с ним...

---

← →
Dennis I. Komarov ©   (2009-08-06 12:00) [2]

о да, пошел "спать"...

---

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

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

Наверх

Память: 0.46 MB
Время: 0.18 c