首页 > TAG信息列表 > ChangeFileExt
Delphi 更改扩展名函数ChangeFileExt
function ChangeFileExt(const FileName, Extension: string): string; var I: Integer; begin I := LastDelimiter('.' + PathDelim + DriveDelim,Filename); if (I = 0) or (FileName[I] <> '.') then I := MaxInt; Result := Copy(FileN