pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warnings and hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@872 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-27 22:39:02 +00:00
parent 3c02bd5018
commit a3ae6b453c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/ws_helper/xsd_generator.pas
View File

@ -650,7 +650,7 @@ procedure TTypeAliasDefinition_TypeHandler.Generate(
); );
var var
typItm : TPasAliasType; typItm : TPasAliasType;
ns_shortName, s : string; s : string;
defSchemaNode, resNode : TDOMElement; defSchemaNode, resNode : TDOMElement;
unitExternalName, baseUnitExternalName : string; unitExternalName, baseUnitExternalName : string;
trueDestType : TPasType; trueDestType : TPasType;
@ -664,7 +664,7 @@ begin
typItm := ASymbol as TPasAliasType; typItm := ASymbol as TPasAliasType;
if Assigned(typItm) then begin if Assigned(typItm) then begin
unitExternalName := GetTypeNameSpace(AContainer,ASymbol); unitExternalName := GetTypeNameSpace(AContainer,ASymbol);
ns_shortName := GetNameSpaceShortName(unitExternalName,ADocument,GetOwner().GetPreferedShortNames()); GetNameSpaceShortName(unitExternalName,ADocument,GetOwner().GetPreferedShortNames());
defSchemaNode := GetSchemaNode(ADocument) as TDOMElement; defSchemaNode := GetSchemaNode(ADocument) as TDOMElement;
s := Format('%s:%s',[s_xs_short,s_element]); s := Format('%s:%s',[s_xs_short,s_element]);