delphi高手请进.帮我解决一个问题

来源：百度知道 编辑：UC知道 时间：2024/05/20 20:47:40
求助各位高手一个关于字符串操作的问题.
在'D:\Program Files\Borland\Delphi7\Bin\delphi32.exe'这个路径中要取到'delphi32'这个文件名.但是这个路径是使用opendialog组件随机得到的路径.请问各位要用什么函数可以取出这个'delphi32'这个文件名称.

在单元的接口部分
uses
StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := AnsiReplaceStr(ExtractFileName(OpenDialog1.FileName),ExtractFileExt(OpenDialog1.FileName),'');
end;