function FunctionEquipment.IsAddRightPlace:Boolean;
var
FDXName:string;
begin
FDXName:=CommunalFunction.GetFatherNodeDXName(self.AddGNWZBZID);
if(SysUtils.UpperCase(FDXName.Trim)=SysUtils.UpperCase('Equipment'))
or(SysUtils.UpperCase(AddGNWZDX.Trim)=SysUtils.UpperCase('CompositeSwitch'))
then
begin
result:=true;
end
else
begin
Result:=false;
end;
end;
function FunctionBay.IsAddRightPlace:Boolean;
var
FDXName:string;
begin
FDXName:=CommunalFunction.GetFatherNodeDXName(self.AddGNWZBZID);
if(SysUtils.UpperCase(AddGNWZDX.Trim)=SysUtils.UpperCase('Bay'))
or (SysUtils.UpperCase(FDXName.Trim)=SysUtils.UpperCase('Equipment'))
or(SysUtils.UpperCase(AddGNWZDX.Trim)=SysUtils.UpperCase('CompositeSwitch'))
then
begin
result:=true;
end
else
begin
Result:=false;
end;
end;
function FunctionSubstation.IsAddRightPlace:Boolean;
var
FDXName:string;
begin
FDXName:=CommunalFunction.GetFatherNodeDXName(self.AddGNWZBZID);
if(SysUtils.UpperCase(FDXName.Trim)=SysUtils.UpperCase('VoltageLevel')) then
begin
result:=true;
end
else
begin
Result:=false;
end;
end;
function FunctionVoltageLevel.IsAddRightPlace:Boolean;
begin
if(SysUtils.UpperCase(AddGNWZDX.Trim)=SysUtils.UpperCase('Bay')) then
begin
result:=true;
end
else
begin
Result:=false;
end;
end;
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
