几个判断合法性的例子(功能位置)

 

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;