From 3c995d69dd455f4c625a4b63c8b769cc8076fde0 Mon Sep 17 00:00:00 2001 From: inoussa Date: Sat, 17 May 2014 17:24:38 +0000 Subject: [PATCH] Delphi compatibility fix. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3054 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- wst/trunk/ws_helper/xsd_generator.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/wst/trunk/ws_helper/xsd_generator.pas b/wst/trunk/ws_helper/xsd_generator.pas index 2da6f636d..7b1ccc135 100644 --- a/wst/trunk/ws_helper/xsd_generator.pas +++ b/wst/trunk/ws_helper/xsd_generator.pas @@ -1259,7 +1259,7 @@ procedure TBaseArrayRemotable_TypeHandler.Generate( ADocument : TDOMDocument ); - function GetNameSpaceShortName(const ANameSpace : string):string;overload; + function GetNameSpaceSN(const ANameSpace : string):string;overload; begin Result := GetNameSpaceShortName(ANameSpace,GetSchemaNode(ADocument),GetOwner().GetPreferedShortNames()); end; @@ -1282,7 +1282,7 @@ begin Exit; if Assigned(typItm) then begin unitExternalName := GetTypeNameSpace(AContainer,typItm); - GetNameSpaceShortName(unitExternalName); + GetNameSpaceSN(unitExternalName); defSchemaNode := GetSchemaNode(ADocument) as TDOMElement; s := Format('%s:%s',[s_xs_short,s_complexType]); @@ -1308,7 +1308,7 @@ begin DeclareAttributeOf_WST(propNode,s_WST_collection,'true'); end; if Assigned(propTypItm) then begin - prop_ns_shortName := GetNameSpaceShortName(GetTypeNameSpace(AContainer,propTypItm));// AContainer.GetExternalName(propTypItm.Parent.Parent)); + prop_ns_shortName := GetNameSpaceSN(GetTypeNameSpace(AContainer,propTypItm));// AContainer.GetExternalName(propTypItm.Parent.Parent)); propNode.SetAttribute(s_type,Format('%s:%s',[prop_ns_shortName,AContainer.GetExternalName(propTypItm)])); if propTypItm.InheritsFrom(TPasNativeSpecialSimpleType) then begin if GetRegistry().FindHelper(propTypItm,typeHelper) then