令 s:='g:\mp3\new\xx.mp3';
应该如何作到 s1:='xx';s2:='g:\mp3\new'; 也就是找到最后一'\'然后把串截取,有没函数?
应该如何作到 s1:='xx';s2:='g:\mp3\new'; 也就是找到最后一'\'然后把串截取,有没函数?
解决方案 »
- DELPHI动态创建数据库时,如何显示进度条?
- Delphi菜鸟问题:关于DBGRID
- ADOquery的loadfromfile数据后,回写数据库?
- TreeView中,如何捕捉到点击+、-符号事件,也就是展开、关闭事件?
- 限制鼠标的新问题
- 谁知道怎样实现语音聊天功能!?
- 为什末我安装控件时提示我找不到“dsgnintf.pas”???急谁有?能否发给我
- 有谁用过expressbars,请教一下
- 怎样提高访问数据库的速度!!
- kylix如何发音?
- Excel2000 不能在Excel2003环境导出数据!
- 昨天刚买了《程序员2005精华本》随便翻了几页发现竟然有错别字和英文拼写错误,如果有技术错误那可就,哎!
s1,s2: String;
begin
s1 := ExtractFileDir('g:\mp3\new\xx.mp3'); //s1 = g:\mp3\new
s2 := ExtractFileName('g:\mp2\new\xx.mp3'); //s2 = xx.mp3
s2 := copy(s2,1,Pos(s2,'.')-1); //s2 = xx
end;