From 4a649f5b74c7d47177c97886889fe49d531f76ef Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 13 Jul 2007 11:23:42 +0000
Subject: [PATCH]  * Generate error-message if WriteContent returns nil

git-svn-id: trunk@8035 -
---
 packages/fcl-web/src/fphtml.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/fcl-web/src/fphtml.pp b/packages/fcl-web/src/fphtml.pp
index 51d79cd93a..4cffb914d6 100644
--- a/packages/fcl-web/src/fphtml.pp
+++ b/packages/fcl-web/src/fphtml.pp
@@ -192,6 +192,7 @@ Uses dbugintf;
 
 resourcestring
   SErrRequestNotHandled = 'Web request was not handled by actions.';
+  SErrNoContentProduced = 'The content producer "%s" didn''t produce any content.';
 
 { THTMLContentProducer }
 
@@ -225,6 +226,8 @@ begin
     try
       FWriter.CurrentElement := ParentElement;
       el := WriteContent (FWriter);
+      if not assigned(el) then
+        Raise EHTMLError.CreateFmt(SErrNoContentProduced,[Self.Name]);
       result := el.asstring;
     finally
       if WCreated then