Скачать: CL | DM;

Ошибка при копировании   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c