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

More check for usage before schema deletion.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2994 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-05-03 15:54:36 +00:00
parent a0ef2a66bf
commit a8b83ba712
1 changed files with 14 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
wst/trunk/type_lib_edtr/edit_helper.pas
View File

@ -418,8 +418,10 @@ function IsDependentOn(AType : TPasType; AUnit : TPasModule) : Boolean;
var
locElement : TPasElement;
locList : TList2;
i : Integer;
i, k : Integer;
locVar : TPasVariable;
locProcType : TPasProcedureType;
locArg : TPasArgument;
begin
Result := False;
if (AType = nil) then
@ -445,6 +447,17 @@ begin
locVar := TPasVariable(locElement);
if (locVar.VarType <> nil) and IsDependentOn(locVar.VarType,AUnit) then
exit(True);
end else if locElement.InheritsFrom(TPasProcedure) then begin
locProcType := TPasProcedure(locElement).ProcType;
for k := 0 to locProcType.Args.Count-1 do begin
locArg := TPasArgument(locProcType.Args[k]);
if (locArg.ArgType <> nil) and IsDependentOn(locArg.ArgType,AUnit) then
exit(True);
end;
if locProcType.InheritsFrom(TPasFunctionType) then begin
if IsDependentOn(TPasFunctionType(locProcType).ResultEl.ResultType,AUnit) then
exit(True);
end;
end;
end;
locList := TPasClassType(AType).ClassVars;