一个关于写文本文件的问题！

Question

你的Bianle是什么类型的?String?吗?
把Bianle换成Array[]of char再试试.

Answer 1

这样试试看
filewrite(filehandle, PChar(bianle)^, length(bianle));

Answer 2

filewrite(FileHandle,bianle,length(bianle)+1);

Answer 3

procedure createtxt(ss:string);
var txt:textfile;
begin
 assignfile(txt,'mytext.txt');
 rewrite(txt);
 try
  writeln(txt,ss);
 finally
 closefile(txt);
 end;
end;

Answer 4

filewrite(FileHandle,bianle[1],length(bianle));