delphi文件名字符串

1. 在DELPHI中如何得到一个文件名不带扩展名

方法是用ExtractFileExt对字符串FileName进行提取：
procere TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
fname,exts:string;
begin
fname:=Edit1.Text;
exts := ExtractFileExt(fname);
if exts = '' then //如果隐藏了扩展名
begin
fname := fname+'.*';
if FindFirst(fname, 0, sr) = 0 then
begin
repeat
exts:=exts+ExtractFileExt(sr.Name)+' | ';
until FindNext(sr) <> 0;
FindClose(sr);
end
else
exts:='no file';
end;
Edit2.Text:=exts;
end;