我对可执行文件执行下面的操作后...

Question

我对可执行文件执行了下面的操作后,发现文件大小变得只有几K
procedure TForm1.Button1Click(Sender: TObject);
  var
     from:file of char;
     ch:char;
  begin
     if opendialog1.Execute
        then
          begin
            try
               assignfile(from,opendialog1.FileName);
               reset(from);
               read(from,ch);
               ch:=chr(ord(ch)+11);
               rewrite(from);
               write(from,ch);
            except
               closefile(from);
            end;
            closefile(from);
         end;
  end;
我想用ch:=chr(ord(ch)-11)将文件恢复回来,但是却没有成功,而且开始几MB的文件变成了几KB
为什么会这样呢?

Answer 1

因为你rewrite了，当然会把以前的内容都没了，如果要追加，把rewrite换成Append