pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

+XE2 x32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/kolmck/code@110 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07
This commit is contained in:
dkolmck
2011-11-29 08:02:49 +00:00
parent 65c5217ec4
commit 8255c47a3d
9 changed files with 101 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Addons/err.pas
View File

@ -517,6 +517,7 @@ end;
function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer;
Buffer: PKOLChar; Size: Integer): Integer;
var
ex: Exception;
MsgPtr: PKOLChar;
//MsgEnd: PChar;
//MsgLen: Integer;
@ -543,7 +544,8 @@ begin
//MsgEnd := '';
if ExceptObject is Exception then
begin
MsgPtr := PKOLChar(Exception(ExceptObject).Message);
ex := Exception(ExceptObject);
MsgPtr := PKOLChar(ex.Message);
//MsgLen := StrLen(MsgPtr);
//if (MsgLen <> 0) and (MsgPtr[MsgLen - 1] <> '.') then MsgEnd := '.';
{-} // Isn't it too beautiful - devote ~40 bytes of code just to decide,