| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка при копировании
Sammary © (2002-07-01 17:17:00)При выполнении этого кода происходит
ошибка "Access violation at address ...etc...",
а фаил уже скопировался!?
В чем дело?
var
f1,f2:Thandle;
f:TDFile;
buff:byte;
sizef:integer;
begin
if not fileexists("hdd0")then
begin
filecreate("hdd0");
end else
begin
f1:=fileopen("hdd0",$0001);
f2:=fileopen("txt.txt",$0000);
sizef:=fileseek(f2,0,2);
fileseek(f2,0,0);
fileread(f2,buff,sizef);
fileclose(f2);
fileseek(f1,0,0);
filewrite(f1,buff,sizef);
fileclose(f1);
end;
Sasha9 (2002-07-01 18:11:00) [1]fileread(f2,buff,sizeof(buff));
Sammary (2002-07-01 17:53:00) [2]MBo
А как надо?
MBo (2002-07-01 17:34:00) [3]buff:byte;
а читаешь в него неизвестно сколько - портишь кусок памяти
| |
