当前位置：物业房屋租赁管理系统平台 > 租房子 >

delphi的关于文件流的读写技巧

时间：2012-12-03 08:42    来源：未知    作者：admin    点击： 次

var
 F:Tfilestream;
 tmpData: array of Byte;
begin
 F:=Tfilestream.create('你的文件',fmOpenWrite);
 try
  SetLength(tmpData, F.Size);
  F.position:=0;
  F.Read(tmpData, F.Size);
  { 修改tmpData }
  F.position:=0;
  F.Size := 0;
  F.Write(tmpData, SizeOf(tmpData));
 finally
  F.free;
 end;
end;