很急的简单问题，帮忙

Question

如何将edt_server.text中的内容保存在文本文件中？我的下面代码出现乱码，为什么？ 
filename:=r_sys.apppath+'dat\login.txt';
   ifilehandle:=FileCreate(filename);
   if fileexists(filename)  then
   begin
      name:=trim(edt_server.text);      
      FileWrite(ifilehandle,name,length(name));
      FileClose(ifilehandle);
   end;

Answer 1

name是string型吗，string其实是一个指针，所以你这样保存的话保存了的是指针地址。
好像是用FileWrite(ifilehandle,@name[0],length(name));记不清了，也可以先转为pchar后再保存。

Answer 2

var
  txt : TextFile;
  FileName:string;
begin
  filename:=r_sys.apppath+'dat\login.txt';
  AssignFile(txt, FileName);
  Rewrite(txt);
  WriteLn(txt, edit1.text);
  CloseFile(txt);
end;