delphi如何简单取得后缀名

Question

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

Answer 1

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

Answer 2

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

Answer 3

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