Delphi 要写个一个文本文件 ,写入有些中文字会是乱码 ,为什么????

Question

var
  vFilePath:string;
  f:TextFile;
begin
    vFilePath:=ExtractFilePath(application.ExeName)+'test.txt';
    AssignFile(f,vFilePath);
    ReWrite(f);
    writeln(f,'住院');
    closefile(f);
End;

Answer 1

Delphi 人气太少了,没人回答 ,哎

Answer 2

var
    vFilePath:string;
    f:TextFile;
begin
        vFilePath:=ExtractFilePath(application.ExeName)+ 'test.txt ';
        AssignFile(f,vFilePath);
        ReWrite(f);        writeln(f, UTF8Encode('住院'));
        closefile(f);end;