如何才能获得文件的扩展名? function ExtractFileExt(const FileName: string): string; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 str:=ExtractFileName()delete(str,1,length(str)-pos('.',str)) delphi socket通信 如何发送XML文件,如何给个例子啊?高手 求救:关于RegSetValueEx方法 关于对文件夹操作的问题!!!!??????? 谁有关于读写POS机的源码或资料呀 请教Delphi程序内存问题! 我的查询系统是怎么回事? 请x_qiang(绝对低手) 和agui(阿贵) 来接分(我还有个问题啊)~~~ 按文件修改时间查找文件 怎样使DBImage中的图片不超过DBImage本身的大小? filter的问题 ado有没有象QUery的Updatespending那样判断是否有数据没有提交的属性 在设置打印报表方向时的问题
delete(str,1,length(str)-pos('.',str))