paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:30:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ExtractShortPathName

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-12 22:13:07 +01:00
parent 6e9521d99a
commit 399f693ebb
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/vcl-compat/src/system.ansistrings.pp
View File

@ -102,9 +102,7 @@ function ExtractFileExt(const FileName: AnsiString): AnsiString; overload;
function ExtractFileName(const FileName: AnsiString): AnsiString; overload;
function ExtractFilePath(const FileName: AnsiString): AnsiString; overload;
function ExtractRelativePath(const BaseName, DestName: AnsiString): AnsiString; overload;
{$IFDEF MSWINDOWS}
function ExtractShortPathName(const FileName: AnsiString): AnsiString; overload;
{$ENDIF}
function FloatToText(BufferArg: PAnsiChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer; const AFormatSettings: TFormatSettings): Integer; overload;
function FloatToText(BufferArg: PAnsiChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; overload; inline;
function FloatToTextFmt(Buf: PAnsiChar; const Value; ValueType: TFloatValue; Format: PAnsiChar; const AFormatSettings: TFormatSettings): Integer; overload;
@ -1423,4 +1421,10 @@ begin
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.UpperCase(S,LocaleOptions);
end;
function ExtractShortPathName(const FileName: AnsiString): AnsiString; overload;
begin
Result:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.ExtractShortPathName(FileName);
end;
end.