paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 07:59:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not display error message if NoErrMsg is set.

Browse Source 
git-svn-id: trunk@27765 -
This commit is contained in:
michael 2014-05-11 10:19:04 +00:00
parent 4258d71a2d
commit d5a88caecd
1 changed files with 2 additions and 1 deletions

3
rtl/win/syswin.inc
View File

@ -457,7 +457,8 @@ Begin
end;
if ErrorLen=ErrorBufferLength then
begin
MessageBox(0,@ErrorBuf,pchar('Error'),0);
if not NoErrMsg then
MessageBox(0,@ErrorBuf,pchar('Error'),0);
ErrorLen:=0;
end;
Dec(F.BufPos,i);