From 848a2159be0d3b8b500cf1eac7ccaedb22a70350 Mon Sep 17 00:00:00 2001 From: inoussa Date: Wed, 2 Feb 2011 15:37:47 +0000 Subject: [PATCH] Correct test for string-based type (optional)properties (for storage) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1483 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/ws_helper/generator.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas index 4b818ac14..e79b52eb7 100644 --- a/wst/trunk/ws_helper/generator.pas +++ b/wst/trunk/ws_helper/generator.pas @@ -2560,12 +2560,14 @@ var Indent(); pte := FSymbolTable.FindElement(p.VarType.Name); if ( pte <> nil ) and pte.InheritsFrom(TPasType) then begin + if pte.InheritsFrom(TPasUnresolvedTypeRef) then + pte := SymbolTable.FindElement(SymbolTable.GetExternalName(pte)); pt := pte as TPasType; pt := GetUltimeType(pt); if pt.InheritsFrom(TPasEnumType) then begin WriteLn('Result := True;'); end else if pt.InheritsFrom(TPasNativeSimpleType) and - ( AnsiPos('string', pt.Name) > 0 ) + ( AnsiPos('string', LowerCase(pt.Name)) > 0 ) then begin WriteLn('Result := ( F%s <> '''' );',[p.Name]); end else if pt.InheritsFrom(TPasNativeSimpleType) and