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

* Generate error-message if WriteContent returns nil

Browse Source 
git-svn-id: trunk@8035 -
This commit is contained in:
joost 2007-07-13 11:23:42 +00:00
parent 9a8aa52cc5
commit 4a649f5b74
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/fphtml.pp
View File

@ -192,6 +192,7 @@ Uses dbugintf;
resourcestring resourcestring
SErrRequestNotHandled = 'Web request was not handled by actions.'; SErrRequestNotHandled = 'Web request was not handled by actions.';
SErrNoContentProduced = 'The content producer "%s" didn''t produce any content.';
{ THTMLContentProducer } { THTMLContentProducer }
@ -225,6 +226,8 @@ begin
try try
FWriter.CurrentElement := ParentElement; FWriter.CurrentElement := ParentElement;
el := WriteContent (FWriter); el := WriteContent (FWriter);
if not assigned(el) then
Raise EHTMLError.CreateFmt(SErrNoContentProduced,[Self.Name]);
result := el.asstring; result := el.asstring;
finally finally
if WCreated then if WCreated then