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