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

LCL: if exception message contains invalid UTF-8 chars, assume it is ansi and convert, from Joost van der Sluis, bug #12271 #12741

Browse Source 
git-svn-id: trunk@18165 -
This commit is contained in:
mattias 2009-01-06 11:20:29 +00:00
parent ce4f251804
commit eafa3fa246
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -1327,6 +1327,8 @@ var
begin begin
if AppNoExceptionMessages in FFlags then exit; if AppNoExceptionMessages in FFlags then exit;
Msg := E.Message; Msg := E.Message;
if FindInvalidUTF8Character(pchar(Msg),length(Msg), False) > 0 then
Msg := AnsiToUtf8(Msg);
if (Msg <> '') and (Msg[length(Msg)] <> '.') then Msg := Msg + '.'; if (Msg <> '') and (Msg[length(Msg)] <> '.') then Msg := Msg + '.';
if (not Terminated) if (not Terminated)
and (Self<>nil) then begin and (Self<>nil) then begin