如何替换正在使用的文件内容？

Question

我要替换一个正在使用的test.TTE文件（造字文件），我的思路如下： 
首先我用FileRead方法读取例外一个没有使用的同样文件（1.TTE）的内容，但是为什么显示的内容为空？再用一个函数将test.TTE的内容清空，最后用FileWrite将读取的内容覆盖test.TTE的内容？ 
请问：1。为什么显示的内容为空？ 
2。哪个函数可以将一个文件内容清空？
 

Answer 1

清空在dos下有一个方法
cat >C:\test.TTE就可以清空，可是在delphi中不知道怎么用？

Answer 2

我自己搞定了，发布上来给大家看看
i,len: Integer;
str:string;
   i := FileOpen('C:\tbz\tte.tmp',fmOpenWrite);
   len := FileSeek(i,0,2);
   str := stringofchar(#0, len);
   FileClose(i);
   pms_s := TFileStream.Create('C:\tbz\tte.tmp', fmOpenRead);
   pms_s.Read(str[1],len);
   pms_s.Free;
   pms_c := TFileStream.Create('C:\tbz\MirrorFonts.TTE',fmOpenWrite);
   pms_c.Write(str[1],len);
   pms_c.Free;