Label 打开对话框时的标签标题

我还是一个使用Delphi7的初学者

当我使用

TOpenDialog

加载VPN配置文件时，我将文件名放在

TLabel

中，但其标题显示完整的文件路径，例如：

D:\ConfigVPN\sample.ovpn

如何仅显示文件名

sample.ovpn

当我的应用程序关闭并重新打开时，如何将标题固定为

sample.ovpn

这是我的代码：

procedure TForm1.loadClick(Sender: TObject);
begin 
  if OpenDialog.Execute then begin
    config:=OpenDialog.FileName;
    Label.Caption:=config;
    uhuy;
  end; 
end;

---

您可以在

SysUtils

单元中使用

ExtractFileName（）

函数：

uses
  ..., SysUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin 
  config := ...;
  Label.Caption := ExtractFileName(config);
end;

procedure TForm1.loadClick(Sender: TObject);
begin 
  if OpenDialog.Execute then begin
    config := OpenDialog.FileName;
    Label.Caption := ExtractFileName(config);
    uhuy;
  end; 
end;

---

什么意思

config:=？您有一个
config
变量。假设您正在将该值保存在某个位置，以便在应用程序重新启动时可以重新读取该值，而无需再次提示用户。这就是
config:=表示-无论您在应用程序启动时使用何种代码读取保存的值。