Cross函数,通过Variant体自动区分传入的是数组还是数字类型CROSS(A,0,2)

qq_33577118

于 2023-03-10 15:56:09 发布

阅读量81

点赞数

分类专栏：自定义函数文章标签： delphi

本文链接：https://blog.csdn.net/qq_33577118/article/details/129444395

版权

自定义函数专栏收录该内容

11 篇文章 0 订阅

订阅专栏

 //   CROSS(A,B,ifor)表示当A从下方向上穿过B时返回1,否则返回0
  function CROSS(A_,B_:Variant;ifor_:Integer):Boolean;
  var
    A,B,REFA,REFB:Single;
    ArrB:ArraySingle;
    i:integer;
  begin
    Result:=False;
   if VarIsArray(A_) then begin
    i:=1+VarArrayHighBound(A_,1) ;
      if (i<ifor_-1) or (ifor_=0) then EXIT;
      A:=A_[ifor_];
      REFA:=A_[ifor_-1];
   end else begin
     A:=A_; REFA:=A;
   end;

   if VarIsArray(B_) then begin
      i:=1+VarArrayHighBound(B_,1) ;
      if (i<ifor_-1)  or (ifor_=0)  then EXIT;
      B:=B_[ifor_];
      REFB:=B_[ifor_-1];
    end else begin
     B:=B_; REFB:=B;
   end;
       ShowMessage(Format('ARR_A:%F ARR_B:%F EA:%F EB:%F',[a,refa,b,REFB]));
   if (( A>B ) and ( REFA<=REFB ) )
    or
    (( A>=B ) and ( REFA<REFB ) )
   then Result:=True;
  end;

调用方式

procedure TForm1.btn1Click(Sender: TObject);
var
  A,B:ArraySingle;
begin
   SetLength(B,10);
   B[0]:=10;
   B[1]:=-1;
   B[2]:=11;
   B[3]:=11;
   B[4]:=11;
   IF  CROSS(B,0,2) then ShowMessage('Y') ELSE  ShowMessage('N');
end;