36分放送，就一个问题。(急)

Question

怪了，老兄，我这里怎么没有问题？我刚试了。我的代码：
procedure TForm1.Button1Click(Sender: TObject);
var 
  F:TextFile;begin
  AssignFile(F,'test.txt');
  Append(F);
  writeln(F,Edit1.Text);
  CloseFile(F);
  
end;

Answer 1

谢谢各位，不过小弟也觉得奇怪，出错时提示错误发生在reset(f)语句上

Answer 2

我又试了试，发觉不仅是edit的值，memo、richedit的值只要是用键盘输入汉字，程序都是出错。哪位仁兄有办法，快救救小弟

Answer 3

奇怪，把源码贴上来看看。
最好换个版本的DELPHI试试！
上次我装的d3只要一打开dialog就出错，害我弄了一个星期，最后发现版本有问题

Answer 4

  如果是这样的话，那很可能是
delphi的问题了

Answer 5

procedure TForm2.Button1Click(Sender: TObject);
var f:textfile;
 s:string;
 a:boolean;
begin
if edit1.Text<>'' then begin
 assignfile(f,'type\cptype');
 reset(f); /就这里出错