delphi - 修剪文件名但保留文件扩展名

Question

有人知道如何修剪字符串/文件名但保留文件扩展名吗？

例如:

我希望将 Picture1.jpg 变为 Pic.jpg。

我一直在使用 StrUtils 单元，但无法找到解决方案。 LeftStr 是我首先想到的。

Answer 1

将名称拆分为词干和扩展名。缩短茎。然后重新组合。像这样:

function ReduceFileName(const FileName: string; const MaxStemLength: Integer): string;
var
  Ext: string;
  StemLength: Integer;
begin
  Assert(MaxStemLength > 0);
  Ext := ExtractFileExt(FileName);
  StemLength := Length(FileName) - Length(Ext);
  if StemLength <= MaxStemLength then begin
    Result := FileName;
    exit;
  end;
  Result := Copy(FileName, 1, MaxStemLength) + Ext;
end;