| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
AV
Dennis I. Komarov © (2009-08-06 11:51:00)Чего-то не проснулся что ли:
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?
Dennis I. Komarov (2009-08-06 12:00:00) [1]о да, пошел "спать"...
Palladin (2009-08-06 11:55:00) [2]
FileRead(F1, Buf ^, S2-S1);
и врайте тоже с ним...
| |
