From c403a620aa2742dabe367e2af8451553d09b4d7e Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 20 Sep 2005 18:28:48 +0000 Subject: [PATCH] improved error handling git-svn-id: trunk@7759 - --- ide/customformeditor.pp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 5d7ac1c822..db1b3bc833 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -1584,9 +1584,11 @@ begin DefinePropertiesReader); except on E: Exception do begin - debugln('TCustomFormEditor.GetDefineProperties Error calling DefineProperties for ', - CacheItem.RegisteredComponent.ComponentClass.Classname, - ': ',E.Message); + DbgOut('TCustomFormEditor.GetDefineProperties Error calling DefineProperties for '); + if (CacheItem.RegisteredComponent<>nil) then begin + DbgOut(CacheItem.RegisteredComponent.ComponentClass.Classname); + end; + DebugLn(' : ',E.Message); end; end; // free component