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;