paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:20:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2005-01-19 23:33:13 +00:00
parent 2729f303a4
commit 97bbacd0a8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbs/tb0482.pp
View File

@ -5,5 +5,18 @@ uses
resourcestring sMyNewErrorMessage = 'Illegal value: %d'; resourcestring sMyNewErrorMessage = 'Illegal value: %d';
begin begin
try
raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]); raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]);
except
on e : exception do
begin
if e.message='Illegal value: -1' then
halt(0)
else
begin
writeln('error : ',e.message);
halt(1);
end;
end;
end;
end. end.