delphi 方便的文本文件操作(TEXT)

本文整理自网络，侵删。

 
FText: Text;//只能定义为成员或全局
AssignFile( FText, edt1.Text );//打开文件
  Rewrite( FText );//只能一行一行的写
  Writeln( FText, 'aaa');
  Writeln( FText, 'aaa');
  Writeln( FText, 'aaa');
  Writeln( FText, 'aaa');
  Writeln( FText, 'aaa');
  CloseFile( FText );//关闭也就是保存
  s: string;
  Reset( FText );
  mmo1.Clear;
  while not Eof(FText) do
  begin
    Readln( FText, s );
    mmo1.Lines.Add(s);
  end;
 

相关阅读 >>

Delphi playsound(); 停止播放

Delphi 图像操作

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi通过进程名获取进程pid函数

Delphi示例代码 android，ios，osx，windows，linux，html5

Delphi xe 如何实现("再按一次退出") 然后退出程序

Delphi xe7的android应用取得wi-fi的信息

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi 全局钩子锁定鼠标

Delphi判断电脑连接到 internet 了吗？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 方便的文本文件操作(TEXT)