Добрый день! Нужна помощь: при переписывании файла, вместо того, чтобы перписаться, программа оставляет за собой пустой файл...
Код:
var onebyte:byte; i:integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(Fin,opendialog1.filename);
showmessage(opendialog1.filename);
if opendialog1.filename='' then showmessage('Выберите файл')
else
begin
Reset(Fin,1);
while not eof(fin) do
begin
blockread(fin,onebyte,Sizeof(onebyte));
end;
end;
closefile(fin);
assignfile(fout,'File_out.png');
rewrite(fout,1);
while not Eof(fout) do
begin
Blockwrite(fout, oneByte, Sizeof(onebyte));
end;
CloseFile(fout);
end;
end;
end.