取文件扩展名(50分)

nowisay · 2002-03-20

请教各位如何取文件扩展名。[

]

zhihuali · 2002-03-20

var
FileName : String;
begin
ExtractFileExt(FileName) //文件扩展名
end;

chy.com · 2002-03-20

同意

yt_wyb · 2002-03-20

说的没错

beta · 2002-03-20

注意：用ExtractFileExt(FileName)取出来的扩展名是带点的：'.txt'

chy.com · 2002-03-20

左偏移1位就行了。好像是left(1,str)

崔占东 · 2002-03-20

var
FileName : String;
begin
ExtractFileExt(FileName) //.exe
Delete(FileName,1,1) //exe
end;

shangshang · 2002-03-20

塞！用copy把‘.’去掉不就行了？ [

!]

ldaan3 · 2002-03-22

ExtractFileExt( )