什么函数（或其他方法）可以获取文件名？

Question

str1:=ExtractFileExt('d:\abc\test01.txt'); //获取扩展名.txt
str2:=ExtractFileName('d:\abc\test01.txt'); //获取文件名test01.txt
setLength(str2,length(str2)-length(str1)); //将扩展名部分抛弃
Edit1.Text :=str2; //结果为test01

Answer 1

先ExtractFileName();得到不带路径的文件名
再ExtractFileExt()；得到文件的扩展名
两个一减不就可以了吗，当然不是用减了，可以用COPY（）函数。

Answer 2

s:=FileSearch('xy.txt','c:\abc' );

Answer 3

s:=FileSearch('xy.txt','c:\abc' ); //结果为c:\abc\xy.txt

Answer 4

自己写也行呀
for i:=Lenght(Str_FileName)  downto 1 do
begin
  if Str_FileName[i]='.' then
  
end;