Question

delphi 判断文件大小并剪切到D盘

如c:\123.txt文件 大小超过2M时就把这个文件剪切到D盘怎么写语句？

Answer 1

uses	
	sysutils;
var
	a:longint;
	f,fd:file of byte;
	x:byte;
begin
	assign(f,'c:\123.txt'); reset(f);
	a:=filesize(f); reset(f);
	if a>2000000 then begin
		assign(fd,'d:\123.txt'); rewrite(fd);
		while not eof(f) do begin read(f,x); write(fd,x); end;
		close(fd);
	end;
	close(f);
	if a>2000000 then erase(f);
end.	
{字节文件，复制速度较慢。要提高速度，可采用流式文件复制！}