Delphi 文件操作 AssignFile()[通俗易懂]

Delphi 文件操作 AssignFile()[通俗易懂]RADStudio10.2.3测试√procedureTForm_Tips.Button_AssignFileClick(Sender:TObject);varFileName:string;i:Integer;Str:string;beginFileName:=ExtractFileDir(ParamStr(0))+’\Test.csv’;//注意DataFile不能再方法中进行声明//将FileName文件与变量DataF

大家好,欢迎来到IT知识分享网。

RAD Studio 10.2.3 测试√


procedure TForm_Tips.Button_AssignFileClick(Sender: TObject);
var
  FileName: string;
  i: Integer;
  Str: string;
begin
  FileName := ExtractFileDir(ParamStr(0)) + '\Test.csv';
  // 注意 DataFile 不能再方法中进行声明
  // 将 FileName 文件与变量 DataFile 建立连接,后面可以使用 DataFile 变量对文件进行操作
  AssignFile(DataFile, FileName);
  // Rewrite 过程能创建一个新文件并打开它,如果文件已经存在会对之前的文件进行覆盖
  // 使用 Rewrite 和 Append 打开的文本文件只能写入
  Rewrite(DataFile);
  WriteLn(DataFile, 'idx,Name,Sex');
  for i := 0 to 5 do
  begin
    WriteLn(DataFile, IntToStr(i) + ',' + 'xiaoyin0' + IntToStr(i)+ ',' + '男');
  end;

  Memo_Log.Lines.Add('文件写完成,下面开始读!');

  // 使用 Reset 打开的文本文件是只读的
  Reset(DataFile);
  Readln(DataFile, Str);
  Memo_Log.Lines.Add(Str);

  CloseFile(DataFile);
end;

一点点笔记,以便以后翻阅。

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/26447.html

(0)

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

关注微信