paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 09:55:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: more verbose last error

Browse Source 
git-svn-id: trunk@61914 -
This commit is contained in:
martin 2019-09-24 23:36:30 +00:00
parent f117e5216d
commit 1e7c605983
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgwinextra.pp
View File

@ -157,9 +157,12 @@ uses
function GetLastErrorText: String;
var
i: DWORD;
begin
{$ifdef windows}
Result := GetLastErrorText(GetLastError);
i := GetLastError;
Result := IntToStr(i) + ': ' + GetLastErrorText(i);
{$endif}
end;