请问一个函数？关于朝一个文件写数据的函数！

Question

var F: TextFile;begin
  AssignFile(F, 'NEWFILE.$$$');
  Rewrite(F);
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;

Answer 1

var F: TextFile;begin
  AssignFile(F, 'NEWFILE.$$$');
  Rewrite(F);//注意如果文件已存在的话，则原有数据会被覆盖,可用Append进行追加。
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;

Answer 2

Procedure EncloseMailFile(as_file:string);
var
  lh_handle,i:integer;
  s : array[0..4] of Byte;  ss :byte;
  label jump,quit;
begin
  lh_handle := FileOpen(as_file,fmOpenReadWrite);
  FileSeek(lh_handle,0,2);
  for i := 0 to 30 do
     begin
        FileSeek(lh_handle,-1*i,2);
        FileRead(lh_handle,ss,1);
        if ss = $2D then
           begin
              goto jump;
           end;
     end;
  jump:
  s[0] := 13;
  s[1] := 10;
  s[2] :=$2E;
  s[3] := 13;
  s[4] := 10;  FileWrite(lh_handle,s[0],SizeOf(s[0]));
  FileWrite(lh_handle,s[1],SizeOf(s[1]));
  FileWrite(lh_handle,s[2],SizeOf(s[2]));
  FileWrite(lh_handle,s[3],SizeOf(s[3]));
  FileWrite(lh_handle,s[4],SizeOf(s[4]));
  quit:
  FileClose(lh_handle);
end;