在DELPHI中如何得到一个文件名不带扩展名
答案:4 悬赏:60
解决时间 2021-02-18 06:05
- 提问者网友：谁的错
- 2021-02-17 05:49
在DELPHI中如何得到一个文件名不带扩展名
最佳答案
- 二级知识专家网友：老鼠爱大米
- 2021-02-17 07:14
Edit1.Text:=ChangeFileExt(ExtractFileName(Application.ExeName),'') ; //获取到应用程序名后，将后缀名清空就可以啦。
全部回答
- 1楼网友：duile
- 2021-02-17 09:33
edit1. text := stringreplace(ExtractFileName(Application.ExeName), ExtractFileExt(Application.ExeName), '', []);
- 2楼网友：冷風如刀
- 2021-02-17 08:33
方法是用ExtractFileExt对字符串FileName进行提取：
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
fname,exts:string;
begin
fname:=Edit1.Text;
exts := ExtractFileExt(fname);
if exts = '' then //如果隐藏了扩展名
begin
fname := fname+'.*';
if FindFirst(fname, 0, sr) = 0 then
begin
repeat
exts:=exts+ExtractFileExt(sr.Name)+' | ';
until FindNext(sr) <> 0;
FindClose(sr);
end
else
exts:='no file';
end;
Edit2.Text:=exts;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
fname,exts:string;
begin
fname:=Edit1.Text;
exts := ExtractFileExt(fname);
if exts = '' then //如果隐藏了扩展名
begin
fname := fname+'.*';
if FindFirst(fname, 0, sr) = 0 then
begin
repeat
exts:=exts+ExtractFileExt(sr.Name)+' | ';
until FindNext(sr) <> 0;
FindClose(sr);
end
else
exts:='no file';
end;
Edit2.Text:=exts;
end;
- 3楼网友：平生事
- 2021-02-17 07:24
大概就是copy(Edit1.Text,1, length(Edit1.text)- length(Edit3.Text))
可能前后有一个错位，自己纠正一下。
可能前后有一个错位，自己纠正一下。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯