生成一个指定大小的空文件 “#20” （代码最少） 敬请参与(200分)

T

TeaTeaTTT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #1

如题。
如有不明，请指教

 

L

LiChaoHui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #2

var
fs: TFileStream;
a: Byte;
begin
a := 0;
fs := TFileStream.Create('test.dat', fmCreate);
fs.Seek(20-1, soFromBeginning);
fs.Write(a, 1);
fs.Free;

 

T

TeaTeaTTT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-25

• #3

看的人多参加的人少