Question

我还是使用Delphi 7的初学者

当我使用TOpenDialog加载VPN配置文件时，我将FileName放在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;

Answer 1

您可以使用ExtractFileName()单元中的SysUtils功能：

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;

打开对话框时标签标题

1 个答案: