paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 03:50:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed error message, if a resource file can't be written

Browse Source
This commit is contained in:
florian 2003-12-29 19:31:20 +00:00
parent 021652683a
commit a3cd612259
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cresstr.pas
View File

@ -246,8 +246,8 @@ begin
{$i+}
If IOresult<>0 then
begin
message(general_e_errorwritingresourcefile);
exit;
message1(general_e_errorwritingresourcefile,filename);
exit;
end;
R:=TResourceStringItem(List.First);
While assigned(R) do
@ -300,7 +300,10 @@ end;
end.
{
$Log$
Revision 1.19 2003-12-08 22:34:24 peter
Revision 1.20 2003-12-29 19:31:20 florian
* fixed error message, if a resource file can't be written
Revision 1.19 2003/12/08 22:34:24 peter
* tai_const.create_32bit changed to cardinal
Revision 1.18 2003/10/29 19:48:50 peter