DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 20
在线用户: 8
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 changfenglee (葫芦老四) ★☆☆☆☆ -
普通会员
2022/12/27 11:29:03
标题:
关于FireMonkey获取文件相对路径的问题 浏览:765
加入我的收藏
楼主: 各位大侠:

之前在VCL里面获取文件的相对路径的方式在FireMonkey里面好像不能用了,原来的写法如下:

Label1.Caption:=ExtractFilePath(Application.ExeName)+'A.exe' ;

那么在FireMonkey里面是怎么写得呢,请大家指点一下
----------------------------------------------
【个人签名】:玩了多年DELPHI,终于从菜鸟升级成老菜鸟
作者:
男 changfenglee (葫芦老四) ★☆☆☆☆ -
普通会员
2022/12/27 11:33:57
1楼: 这样写不知道可不可以:

Label1.Text:=ExpandFileName('A.exe');
----------------------------------------------
【个人签名】:玩了多年DELPHI,终于从菜鸟升级成老菜鸟
作者:
男 delphiilove (乌羽玉) ★☆☆☆☆ -
普通会员
2022/12/27 12:03:40
2楼: good
----------------------------------------------
-
作者:
男 janker (janker) ★☆☆☆☆ -
盒子活跃会员
2022/12/27 16:34:45
3楼: ioutil里的Tdirectory、Tpath和TFile处理路径和文件相关的

比如: TPath.GetDirectoryName()
----------------------------------------------
-
作者:
男 emailx45 (emailx45) ▲▲▲▲△ -
普通会员
2022/12/27 21:17:43
4楼: procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := ParamStr(0);
  Memo1.Lines.Add(ExtractFilePath(ParamStr(0)));
  Memo1.Lines.Add(ExtractFileDir(ParamStr(0)));
  Memo1.Lines.Add(ExtractFileName(ParamStr(0)));
end;

D:\RADStudioTests\RADRX112Tests\Win32\Debug\Project1.exe
D:\RADStudioTests\RADRX112Tests\Win32\Debug\
D:\RADStudioTests\RADRX112Tests\Win32\Debug
Project1.exe
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
作者:
男 changfenglee (葫芦老四) ★☆☆☆☆ -
普通会员
2022/12/28 8:29:23
5楼: 谢谢emailx45

有好几次问题都是您帮我解惑的,特别感谢
----------------------------------------------
【个人签名】:玩了多年DELPHI,终于从菜鸟升级成老菜鸟
作者:
男 emailx45 (emailx45) ▲▲▲▲△ -
普通会员
2022/12/28 11:23:45
6楼: not for that
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行132.8125毫秒 RSS