求助？怎样删除文件(100分)

大

大胡子zx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #1

怎样在文件列表中选择文件并删除它，有没有法简单的方法？

 

G

GanQuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #2

deletefile('c:/hello.txt')

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #3

Function DeleteFile(FileName :String) :Bool;

 

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #4

没错,用deletefile

 

F

FlashDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #5

如果文件是只读属性的可以这样删除
uses SysUtils
...
var
Attr:Integer;
begin
Attr:=FileGetAttr(Filename);
FileSetAttr(Filename,Attr and (not faReadOnly));
deleteFile(filename);
end;

 

T

truecat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #6

同意楼上。

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #7

procedure TForm1.FileListBox1DblClick(Sender: TObject);
var i:integer;
begin
for i:=0 to filelistbox1.items.count-1 do
if filelistbox1.selected then
begin
deletefile(filelistbox1.Items.Strings[filelistbox1.ItemIndex]);
showmessage('已删除！');
end;
end;

 

X

xlych2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #8

FlashDelphi的更好，可以发分了！