如题。
解决方案 »
- 跪求 发送EMAIL 的原码或例子,谢谢!!!
- 如何在listbox的item中嵌入combobox?
- 请问为什么结果是负的呢????
- getpicklist函數怎么用?
- 买书
- 高分求教,help me !!!!!!!!!!!!!!!!!!!!!!
- 谁知道如何在treeview的某个节点被编辑后可以立即对这个节点修改和生效
- 怎么在程序里面设置数据库的用户和密码
- 300分挑战所有的高手(ActiveX控件制作),斑猪都不回答的问题
- TreeView中如何判断某一节点是否是另一节点的后代(例如:子节点的子节点)
- 拜师!求师父N名,要求不高,能帮我改源码就可。(超级菜鸟),交朋友也可以,留下qq号及e-mail。
- 在调试程序时,如何避免调试某一个pas文件?
edit1.Text:=ExpandFileName(OpenDialog1.FileName);
sStr:string;
begin
if not OpenDialog1.Execute then
Abort;
sStr := OpenDialog1.files[0];//函路径的文件名
if pos('.', sStr) <> 0 then
begin
while pos('\', sStr) <> 0 do
sStr := copy(sStr, pos('\', sStr) + 1, length(sStr) - pos('\', sStr) +1);
end;//最后不含路径的文件名
end;