关于流文件

Question

请问：
小弟已将a文件写于b文件之后，
这时是否可以将a文件从b文件 ! 删除 !
注意是删除
就是将b文件恢复成原样 原来大小
b文件后不再有a文件

Answer 1

use procedure Truncate(var F);

Answer 2

oFileStream.SetSize(原来b的长度);

Answer 3

var f1:Tfilestream;
begin
   f1:=TFileStream.create('d:\test.txt',fmOpenReadWrite);
   with TFileStream.create('d:\test1.txt',fmCreate) do
   begin
     CopyFrom(f1,100);
     free;
   end;
   f1.free;end;

Answer 4

var f1:File Of byte;
begin
   AssignFile(f1,'d:\test.txt');
   ReSet(f1);
   Seek(f1,10);
   Truncate(f1);
   CloseFile(f1);end;

Answer 5

var f1:File Of byte;
begin
   AssignFile(f1,'d:\test.txt');
   ReSet(f1);
   Seek(f1,10);
   Truncate(f1);
   CloseFile(f1);end;

Answer 6

Seek移动文件指针到任何位置
Truncate在当前位置截断文件

Answer 7

Truncate是什么呀？
编译不通

Answer 8

unit systemprocedure Truncate(var F);DescriptionCall Truncate to cause the current file position to become end-of-file (Eof(F) is True).F is a file variable of any type except a text file. Truncate does not work on text files. F must be open.