delphi如何简单取得后缀名

[luckymzz]

delphi如何简单取得文件后缀名（不确定文件格式），必须进行字符串处理吗？有没有简单方法啊

[notebook800]

[Quote=引用 1 楼 starluck 的回复:]
ShowMessage(ExtractFileExt('tt.txt') );
[/Quote]

这种问题别抢撒

[kfcoffe]

lz对delphi自带的库不是怎么熟悉哦。很多功能都已经实现了，等着你去调用，干嘛还要这样大费周折了。呵呵
有时间熟悉下自带的库

[starluck]

ShowMessage(ExtractFileExt('tt.txt') );

[luckymzz]

edit1.Text:=IntTostr( pos('.',edit3.Text)); // edit3.Text为文件后缀名
edit2.Text:=copy(edit3.Text,pos('.',edit3.Text),length(edit3.Text)-pos('.',edit3.Text)+1);
弄出来了 呵呵

[luckymzz]

[Quote=引用楼主 luckymzz 的回复:]
          delphi如何简单取得文件后缀名（不确定文件格式），必须进行字符串处理吗？有没有简单方法啊
[/Quote]
谢谢 你的方法更简单啊