paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 23:12:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Remove trailing #13#10 in the result of SysErrorMessage() on Windows and minor optimization. It is Delphi compatible.

Browse Source 
git-svn-id: trunk@34220 -
This commit is contained in:
yury 2016-07-29 10:23:12 +00:00
parent 980c4741ac
commit e3ebaa6e6a
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/win/sysutils.pp
View File

@ -978,19 +978,22 @@ function SysErrorMessage(ErrorCode: Integer): String;
const const
MaxMsgSize = Format_Message_Max_Width_Mask; MaxMsgSize = Format_Message_Max_Width_Mask;
var var
MsgBuffer: PUnicodeChar; MsgBuffer: unicodestring;
len: longint;
begin begin
GetMem(MsgBuffer, MaxMsgSize*2); SetLength(MsgBuffer, MaxMsgSize);
FillChar(MsgBuffer^, MaxMsgSize*2, #0); len := FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM,
FormatMessageW(FORMAT_MESSAGE_FROM_SYSTEM,
nil, nil,
ErrorCode, ErrorCode,
MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT), MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
MsgBuffer, PUnicodeChar(MsgBuffer),
MaxMsgSize, MaxMsgSize,
nil); nil);
SysErrorMessage := MsgBuffer; // Remove trailing #13#10
FreeMem(MsgBuffer, MaxMsgSize*2); if (len > 1) and (MsgBuffer[len - 1] = #13) and (MsgBuffer[len] = #10) then
Dec(len, 2);
SetLength(MsgBuffer, len);
Result := MsgBuffer;
end; end;
{**************************************************************************** {****************************************************************************