demo_basic_diff.htm

来自「Delphi脚本控件」· HTM 代码 · 共 450 行 · 第 1/3 页

      RR = InOrder(A(1))

      <font color="blue"><b>If</b></font> (Oper = OP_LOG) <font color="blue"><b>And</b></font> (Substr(RR, 1, 1) <> <font color="Red">"("</font>) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>Return</b></font> <font color="Red">"ln"</font> + <font color="Red">"("</font> + RR + <font color="Red">")"</font>
      <font color="blue"><b>Else</b></font>
        <font color="blue"><b>Return</b></font> <font color="Red">"("</font> + Oper + RR + <font color="Red">")"</font>
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>ElseIf</b></font> A.length = 3 <font color="blue"><b>Then</b></font>
      Oper = A(0)
      LL = InOrder(A(1))
      RR = InOrder(A(2))

      <font color="blue"><b>If</b></font> (Substr(RR, 1, 1) = OP_SUB) <font color="blue"><b>And</b></font> (Oper = OP_ADD) <font color="blue"><b>Then</b></font>
        Oper = <font color="Red">""</font>
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>

      <font color="blue"><b>Return</b></font> <font color="Red">"("</font> + LL + Oper + RR + <font color="Red">")"</font>
    <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
  <font color="blue"><b>Else</b></font>
    <font color="blue"><b>Return</b></font> toString(A)
  <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
<font color="blue"><b>End</b></font> <font color="blue"><b>Function</b></font>

<font color="blue"><b>Sub</b></font> Compress(R <font color="blue"><b>As</b></font> <font color="blue"><b>Variant</b></font>)
  <font color="blue"><b>Dim</b></font> K <font color="blue"><b>As</b></font> <font color="blue"><b>Integer</b></font>
  <font color="blue"><b>Dim</b></font> Oper <font color="blue"><b>As</b></font> <font color="blue"><b>String</b></font>
  <font color="blue"><b>Dim</b></font> X1, X2, U, V <font color="blue"><b>As</b></font> <font color="blue"><b>Variant</b></font>
  <font color="blue"><b>Dim</b></font> Ground <font color="blue"><b>As</b></font> <font color="blue"><b>Boolean</b></font>
  
  <font color="blue"><b>If</b></font> IsCompound(R) <font color="blue"><b>Then</b></font>
    K = R.length
  <font color="blue"><b>Else</b></font>
    K = 0
  <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>

  <font color="blue"><b>If</b></font> K = 2 <font color="blue"><b>Then</b></font>
    Oper = R(0)
    <font color="blue"><b>If</b></font> Oper = OP_UN <font color="blue"><b>Then</b></font>
      X1 = <font color="blue"><b>AddressOf</b></font> R(1)
      <font color="blue"><b>If</b></font> IsCompound(X1) <font color="blue"><b>Then</b></font>
        Compress(X1)
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>If</b></font> IsConstant(X1) <font color="blue"><b>Then</b></font>
        X1 = - X1
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
  <font color="blue"><b>ElseIf</b></font> K = 3 <font color="blue"><b>Then</b></font>
    Oper = R(0)
    X1 = <font color="blue"><b>AddressOf</b></font> R(1)
    X2 = <font color="blue"><b>AddressOf</b></font> R(2)

    <font color="blue"><b>If</b></font> IsCompound(X1) <font color="blue"><b>Then</b></font>
      Compress(X1)
    <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    
    <font color="blue"><b>If</b></font> IsCompound(X2) <font color="blue"><b>Then</b></font>
      Compress(X2)
    <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>

    Ground = IsConstant(X1) <font color="blue"><b>And</b></font> IsConstant(X2)

    <font color="blue"><b>If</b></font> Oper = OP_ADD <font color="blue"><b>Then</b></font>
      <font color="blue"><b>If</b></font> Ground <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1 + X2
      <font color="blue"><b>ElseIf</b></font> IsZero(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X2
      <font color="blue"><b>ElseIf</b></font> IsZero(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> X1 = X2 <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_MULT, 2, X1]
      <font color="blue"><b>ElseIf</b></font> IsNeg(X1) <font color="blue"><b>And</b></font> (<font color="blue"><b>Not</b></font> IsNeg(X2)) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_SUB, X2, X1(1)]
      <font color="blue"><b>ElseIf</b></font> IsNeg(X2) <font color="blue"><b>And</b></font> (<font color="blue"><b>Not</b></font> IsNeg(X1)) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1, X2(1)]
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>And</b></font> IsMult(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> X1(1) = X2(1) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_ADD, X1(2), X2(2)]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = X2(2) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_ADD, X1(1), X2(1)]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> X1(1) = X2 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2, [OP_ADD, X1(2), 1]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = X2 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2, [OP_ADD, X1(1), 1]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> X2(1) = X1 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_ADD, X2(2), 1]]
        <font color="blue"><b>ElseIf</b></font> X2(2) = X1 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_ADD, X2(1), 1]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsAdd(X1) <font color="blue"><b>And</b></font> IsConstant(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> IsConstant(X1(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1(2), X1(1) + X2]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X1(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1(1), X1(2) + X2]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsAdd(X2) <font color="blue"><b>And</b></font> IsConstant(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> IsConstant(X2(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X2(2), X2(1) + X1]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X2(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X2(1), X2(2) + X1]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsSub(X1) <font color="blue"><b>And</b></font> IsConstant(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> IsConstant(X1(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1(1) + X2, X1(2)]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X1(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X2 - X1(2), X1(1)]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsSub(X2) <font color="blue"><b>And</b></font> IsConstant(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font> IsConstant(X2(1)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_SUB, X1 + X2(1), X2(2)]
        <font color="blue"><b>ElseIf</b></font> IsConstant(X2(2)) <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1 - X2(2), X2(1)]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
    <font color="blue"><b>ElseIf</b></font> Oper = OP_SUB <font color="blue"><b>Then</b></font>
      <font color="blue"><b>If</b></font> Ground  <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1 - X2
      <font color="blue"><b>ElseIf</b></font> IsZero(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_UN, X2]
      <font color="blue"><b>ElseIf</b></font> IsZero(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = X1
      <font color="blue"><b>ElseIf</b></font> X1 = X2 <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = 0
      <font color="blue"><b>ElseIf</b></font> IsNeg(X1) <font color="blue"><b>And</b></font> (<font color="blue"><b>not</b></font> IsNeg(X2)) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1(1), X2]
      <font color="blue"><b>ElseIf</b></font> IsNeg(X2) <font color="blue"><b>And</b></font> (<font color="blue"><b>not</b></font> IsNeg(X1)) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>reduced</b></font> R = [OP_ADD, X1, X2(1)]
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>And</b></font> IsMult(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      X1(1) = X2(1) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(1), [OP_SUB, X1(2), X2(2)]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = X2(2) <font color="blue"><b>Then</b></font>
          <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1(2), [OP_SUB, X1(1), X2(1)]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X1) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      X1(1) = X2 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2, [OP_SUB, X1(2), 1]]
        <font color="blue"><b>ElseIf</b></font> X1(2) = X2 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X2, [OP_SUB, X1(1), 1]]
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsMult(X2) <font color="blue"><b>Then</b></font>
        <font color="blue"><b>If</b></font>      X2(1) = X1 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_SUB, X2(2), 1]]
        <font color="blue"><b>ElseIf</b></font> X2(2) = X1 <font color="blue"><b>Then</b></font>
           <font color="blue"><b>reduced</b></font> R = [OP_MULT, X1, [OP_SUB, X2(1), 1]] 
        <font color="blue"><b>End</b></font> <font color="blue"><b>If</b></font>
      <font color="blue"><b>ElseIf</b></font> IsAdd(X1) <font color="blue"><b>And</b></font> IsConstant(X2) <font color="blue"><b>Then</b></font>