Ошибка при копировании

← →
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
А как надо?

fileread(f2,buff,sizeof(buff));

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