删除字符串的特定部分

Question

我正在使用 Pascal 脚本根据注册表项返回一个字符串，但我需要删除该字符串的特定部分。

这是当前代码：

function GetDirName(Value: string): string;
var          
  InstallPath: string;
begin
  // initialize default path, which will be returned when the following registry
  // key queries fail due to missing keys or for some different reason
  Result := '{pf}\LucasArts\Star Wars Battlefront II\RegistryFailed';
  // query the first registry value; if this succeeds, return the obtained value
  if RegQueryStringValue(HKLM, 'SOFTWARE\LucasArts\Star Wars Battlefront II\1.0', 'ExePath', InstallPath) then
    Result := InstallPath
  // otherwise the first registry key query failed, so...
  else
  // query the second registry value; if it succeeds, return the obtained value
  if RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\LucasArts\Star Wars Battlefront II\1.0', 'ExePath', InstallPath) then
    Result := InstallPath
end;

我需要从返回的字符串中删除的部分是 \BattlefrontII.exe，它始终位于字符串的末尾。

当前返回的字符串示例：C:\Program Files (x86)\LucasArts\Star Wars Battlefront II\GameData\BattlefrontII.exe

我需要返回的字符串看起来或多或少的示例：C:\Program Files (x86)\LucasArts\Star Wars Battlefront II\GameData

感谢任何帮助。

附：我对帕斯卡完全陌生；我只是用它来使用 Inno Setup Compiler 编译安装程序

Answer 1

看起来你想要的是ExtractFilePath:

function ExtractFilePath(const FileName: string): String;

描述：提取给定文件的驱动器和目录部分 姓名。结果字符串是 FileName 最左边的字符，向上 到并包括分隔路径的冒号或反斜杠 来自名称和扩展名的信息。结果字符串为空 如果 FileName 不包含驱动器和目录部分。

查看list of functions 了解更多有用的信息。

在你的情况下，你可以这样说：

Result := ExtractFilePath(Result);

在你的函数结束时。

编辑：更加明确：

function GetDirName(const Value: string): string;
var          
  InstallPath: string;
begin
  // initialize default path, which will be returned when the following registry
  // key queries fail due to missing keys or for some different reason
  Result := ExpandConstant('{pf}\LucasArts\Star Wars Battlefront II\RegistryFailed');
  // query the first registry value; if this succeeds, return the obtained value
  if RegQueryStringValue(HKLM, 'SOFTWARE\LucasArts\Star Wars Battlefront II\1.0', 'ExePath', InstallPath) then
    Result := InstallPath  
  // otherwise the first registry key query failed, so...
  else
  // query the second registry value; if it succeeds, return the obtained value
  if RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\LucasArts\Star Wars Battlefront II\1.0', 'ExePath', InstallPath) then
    Result := InstallPath;

  // return only the path
  Result := ExtractFilePath(Result);
end;