[Никитка]

Добрый день! Нужна помощь: при переписывании файла, вместо того, чтобы перписаться, программа оставляет за собой пустой файл...

Код:

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.     

[Bargest]

while not Eof(fout) do

А не подумал, что при создании файла (rewrite) он пуст и, как следствие, его конец достигнут сразу?
Нужно не до конца нового файла писать, а столько, сколько данных надо.

[Никитка]

Ах да, конечно