盒子论坛 v2.1

代码如下：
var
  f:textfile;
begin
  assignfile(f,'1.txt')
  rewrite(f);
  writeln('111');
  closefile(f);
end;

如何在最后生成一个utf-8格式的文本文件
----------------------------------------------
-

作者：

haiou327 (haiou327)	★☆☆☆☆	-
	普通会员

2014/6/5 23:13:07

1楼：

一定要textFile类型变量吗

var
  i: integer = 64;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s: TStringList;
const
  t = '1.txt';
begin
  if FileExists(t) then
  begin
    try
      s := TStringList.Create;
      s.LoadFromFile(t);
      inc(i);
      s.add(Chr(i));
      s.SaveToFile(t, TEncoding.UTF8);
    finally
      s.Free;
    end;
  end;
end ;
----------------------------------------------
-

作者：

lsuper (lsuper)	★☆☆☆☆	-
	盒子活跃会员

2014/6/6 0:34:46

2楼：

textfile 是 pascal 时代的 out 了，建议 TFileStream 或者楼上的 TStringList 更 oo 啊 ~~
----------------------------------------------
-

作者：

guxiang (hanxin)	★☆☆☆☆	-
	盒子活跃会员

2014/6/6 9:00:05

3楼：

OK,试一下，谢谢楼上两位啊，lsuper大神回复真是好激动啊
----------------------------------------------
-

信息

登陆以后才能回复