paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 04:52:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

use PropValueError instead of manual raise with fixed message

Browse Source 
git-svn-id: trunk@14787 -
This commit is contained in:
paul 2008-04-09 05:53:25 +00:00
parent 3ba06c5d7b
commit 6e278016cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lresources.pp
View File

@ -3523,7 +3523,7 @@ begin
vaInt32:
AChildPos := ReadInt32;
else
raise EReadError.Create('Invalid Property Value');
PropValueError;
end;
end;
end;
@ -3661,7 +3661,7 @@ begin
break;
Value := GetEnumValue(PTypeInfo(EnumType), Name);
if Value = -1 then
raise EReadError.Create('Invalid Property Value');
PropValueError;
Result := Result or (1 shl Value);
end;
except