Delphi 文件操作

关联文件：AssignFile(pMyFile,'c:\ttt.csv');
打开文件：ReWrite(pMyFile);   //如果文件不存在,用ReWrite打开
         Append(pMyFile);   //如果文件已经存在,追加内容，用Append打开
写入一行：WriteLn(pMyFile,pStr);
关闭文件：CloseFile(pMyFile);