Question

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

求助各位高手一个关于字符串操作的问题.
在'D:\Program Files\Borland\Delphi7\Bin\delphi32.exe'这个路径中要取到'delphi32'这个文件名.但是这个路径是使用opendialog组件随机得到的路径.请问各位要用什么函数可以取出这个'delphi32'这个文件名称.

Answer 1

在单元的接口部分
uses
StrUtils;

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