读写CSV文件
写入
fileName := 'D:/data.csv'
file_exists(fileName,FileExists)
if(FileExists)
delete_file (fileName)
endif
open_file(fileName,'append',FileHandle)
fwrite_string (FileHandle, 'NO.,Distance')
* 换行
fnew_line (FileHandle)
*使用完成后,关闭文件,释放资源
close_file (FileHandle)