Форум: "Система";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];
ВнизОшибка при копировании Найти похожие ветки
← →
Sammary (2002-07-01 17:17) [0]При выполнении этого кода происходит
ошибка "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;
← →
MBo (2002-07-01 17:34) [1]buff:byte;
а читаешь в него неизвестно сколько - портишь кусок памяти
← →
Sammary (2002-07-01 17:53) [2]MBo
А как надо?
← →
Sasha9 (2002-07-01 18:11) [3]fileread(f2,buff,sizeof(buff));
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c