为什么写入一系列数字(字符串形式）进文本文件，打开却是乱码？

Question

呵呵，你用的是TFileStream，不是TTextFile，
i:integer;
  fp: TTextFile
  lstr:string;
begin
  Assginfile('digit.txt',fp);
  rewrite(fp);
for i:=0 to 65535 do
  begin
    lstr:=inttostr(i);
    Writeln(lstr);
  end;
  fp.free;
end;

Answer 1

不是TFileStream的问题。把
fp.Write(lstr,length(lstr)*sizeof(char));
改为
fp.Write(lstr[1],length(lstr)*sizeof(char));

Answer 2

keyz(keyz):
    我照你说的一改，结果文件反而打不开了。有问题吧？

Answer 3

呵呵，文件没有关闭，将最后一句改为fp.Close;