请问怎么删除一个TXT文本文件里的内容？(50分)

A

aliangzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #1

我进行文件操作，我只会用RESETAPPEND读和写！但怎么才能把刚才写在TXT一的内容删了啊？
谢谢！

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #2

tstringlist.delete(line)

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #3

删除文件最后30字节：
var
f: Integer;
begin
f := fileopen('a.txt', fmOpenWrite or fmDenyNone);
FileSeek(f, 30, 2);
SetEndofFile(f);
fileclose(f);
end;

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #4

不如删除文件来得快吧？
或者建个空文件直接写成这个文件名？

 

B

Bahl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #5

assignfile(filehandle,filename)
rewrite(filehandle)

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #6

同意 Bahl，rewrite 一下，自动清空。

 

A

aliangzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #7

多人接受答案了。