如何得到用opendialog打开的文件的路径 var s:string;begin s:=extractfiledir(opendialog1.filename); //s即为所求end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if Opendialog1.Execute then Edit1.Text := ExtractFilePath(Opendialog1.FileName);相关函数还有ExtractFileDir、ExtractFileExt等,自己查帮助。 strPath := ExtractFileName(OpenDialog.FileName); od是OpenDialog,longdir获得路径 i:=length(od.filename); while od.filename[i]<>'\' do i:=i-1; longdir:=copy(od.filename,1,i); var name:string;procedure name:=extractfilepath(opendialog1.filename);end; end; 从SQL Server导出的数据怎样把数据类型,数据长度定位到TStringGrid的各列? 有关数据库方面的问题!急!!! 怎么得到上网连接时间(在线急等) Filter的实现问题!? 使用过神龙DVD解压卡开发VOD视频点播系统的朋友请进! 一个聊天软件,请帮忙测试! 又是一个老生常谈的话题,麻烦大家给参谋一下,谢谢 如何將執行檔變得最小 现在的全球首富是谁呀!!!第一个回答正确的给20!!! 谁知道Error creating cursor handle这个错误怎么解决? 请问我们这些程序员有多少在外地打工 一只菜鸟的问题
Edit1.Text := ExtractFilePath(Opendialog1.FileName);相关函数还有ExtractFileDir、ExtractFileExt等,自己查帮助。
i:=length(od.filename);
while od.filename[i]<>'\' do
i:=i-1;
longdir:=copy(od.filename,1,i);
name:string;
procedure
name:=extractfilepath(opendialog1.filename);
end;
end;