[Никитка]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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) он пуст и, как следствие, его конец достигнут сразу?
Нужно не до конца нового файла писать, а столько, сколько данных надо.

[Никитка]

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