如何才能获得文件的扩展名? function ExtractFileExt(const FileName: string): string; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 str:=ExtractFileName()delete(str,1,length(str)-pos('.',str)) 有时候老的控件更好用啊 开发BPL的问题。 Midi窗体如何显示在指定的panel当中? 关于进程间通信的问题 高分!在线等!!用opengl画一个圆柱体 怎样用installShield Express 制作安装程序 key的小问题急急急 如何制作鼠标右击文件图标生成子菜单? 有大连的delphi程序员吗? delphi7问题 ado有没有象QUery的Updatespending那样判断是否有数据没有提交的属性 在设置打印报表方向时的问题
delete(str,1,length(str)-pos('.',str))