急求！！！(300分)

太保球 · 2003-08-26

本人现在想编写一个这样的软件，功能十分简单，只是一个模块罢了。 就是想在打开文件夹下，如选上了多少文件，就把这些文件连同后缀名输出成.TXT文件。 注意：只是文件名和后缀名，不需要文件的路径。

太保球 · 2003-08-26

分数可以在加，请高人指点！！！

来如风 · 2003-08-26

给你个有用的函数 ExtractFilename('c:/ss/f.txt')就可以取出来f.txt了

pihome · 2003-08-26

OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect];  //允许多选 for i:=0 to OpenDialog.Files.Count-1 do begin   FileName:=ExtractFileName(OpenDialog.Files);   ShowMessage(ExtractFileExt(FileName));   ShowMessage(ChangeFileExt(FileName,'')); end;

yubing8 · 2003-08-26

ExtractFilename

coolqiang · 2003-08-26

用OpenDialog进行多选，根据返回的文件列表，去除其中的路径，就得到了文件名和后缀，然后写入TXT文件。

xgz_ball · 2003-08-26

procedure TForm1.Button1Click(Sender: TObject); var  F:TextFile;  Li_Index:Integer; begin  if OpenDialog1.Execute then   begin     AssignFile(F,'C:/test.txt');     for Li_Index:=0 to OpenDialog1.Files.Count-1 do      begin       Append(F);       WriteLn(F,ExtractFilename(OpenDialog1.Files[Li_Index]));      end;     CloseFile(F);   end; end;

bluedna · 2003-08-26

procedure TForm1.Button1Click(Sender: TObject); var i:integer; FileName,outname:string; f:textfile; begin assignfile(f,'test.txt'); if FileExists(outname) then append(f) else rewrite(f); if opendialog1.Execute then begin for i:=0 to OpenDialog1.Files.Count-1 do begin  FileName:=ExtractFileName(OpenDialog1.Files);  writeln(f,filename);  //ShowMessage(FileName); end; end; closefile(f); end; 试试吧！！可以满足你的要求。

太保球 · 2004-05-24

多人接受答案了。

急求！！！(300分)

太保球

Unregistered / Unconfirmed

太保球

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

pihome

Unregistered / Unconfirmed

yubing8

Unregistered / Unconfirmed

coolqiang

Unregistered / Unconfirmed

xgz_ball

Unregistered / Unconfirmed

bluedna

Unregistered / Unconfirmed

太保球

Unregistered / Unconfirmed

Similar threads