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;
一点点笔记,以便以后翻阅。
今天的文章delphi assigned_linux嵌入式软件开发分享到此就结束了,感谢您的阅读。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/69770.html