FileName:='C:/Users/ytg16/Desktop/test.csv'
file_exists(FileName, FileExists)
* if(FileExists)
* delete_file(FileName)
* endif
* open_file (FileName, 'input', FileHandle)
open_file (FileName, 'append', FileHandle)
* open_file(FileName,'output',FileHandle)
fnew_line(FileHandle)
fwrite_string(FileHandle,'these are the first and last lines')
*换行
fnew_line(FileHandle)
fwrite_string(FileHandle,'12312312432'+','+'djfsfkgjdskjf')
*换行
fwrite_string (FileHandle, '\n')
fwrite_string(FileHandle,'these are the first and last lines'+','+'djfsfkgjdskjf')
close_file(FileHandle)