领测软件测试网
软件测试技术门户N*\-P PMam软件测试技术门户Sl0\3CV8c:i3Jhy m*uRest := Af.Size - K * Buf;
L7ej_9fK UOFor I := 1 to K do
软件测试技术门户M ~O7tIS1w@?0Bbegin
软件测试技术门户T,v
h"w j_X U$^Fn := Edit2.Text + IntToStr(I) + ’.spt’; //文件名
软件测试技术门户(^9S l)V%dE MBf := TFileStream.Create(Fn, fmCreate);
9R_L%u6hBf.CopyFrom(Af, Buf);
OF"zq};OMHBf.Free;
Z K-{'jGDend;
!nJI%q
