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

no message

Browse Source
This commit is contained in:
florian 2005-01-19 23:20:12 +00:00
parent 8d251e8506
commit a6549318c7
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbf/tb0170.pp Normal file
View File

@ -0,0 +1,10 @@
{ %fail }
{$mode objfpc}
uses
sysutils;
resourcestring sMyNewErrorMessage = 'Illegal value: %d';
begin
sMyNewErrorMessage:='';
end.

9
tests/tbs/tb0482.pp Normal file
View File

@ -0,0 +1,9 @@
{$mode objfpc}
uses
sysutils;
resourcestring sMyNewErrorMessage = 'Illegal value: %d';
begin
raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]);
end.