aspirinus

Доставляющая лесенка

Jul 23rd, 2012
54
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //развернем сокрашеные опрации
  2. if (ArrFor.Inc.Pos("++") > 0)
  3. {
  4.     AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("++") - 1).Trim();
  5.     ArrFor.Inc = lVar + "+1";
  6. }
  7. else
  8. {
  9.     if (ArrFor.Inc.Pos("--") > 0)
  10.     {
  11.         AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("--") - 1).Trim();
  12.         ArrFor.Inc = lVar + "-1";
  13.     }
  14.     else
  15.     {
  16.         if (ArrFor.Inc.Pos("+=") > 0)
  17.         {
  18.             AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("+=") - 1).Trim();
  19.             AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("+=") + 2, MaxInt).Trim();
  20.             ArrFor.Inc = lVar + "+" + rVar;
  21.         }
  22.         else
  23.         {
  24.             if (ArrFor.Inc.Pos("-=") > 0)
  25.             {
  26.                 AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("-=") - 1).Trim();
  27.                 AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("-=") + 2, MaxInt).Trim();
  28.                 ArrFor.Inc = lVar + "-" + rVar;
  29.             }
  30.             else
  31.             {
  32.                 if (ArrFor.Inc.Pos("/=") > 0)
  33.                 {
  34.                     AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("/=") - 1).Trim();
  35.                     AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("/=") + 2, MaxInt).Trim();
  36.                     ArrFor.Inc = lVar + "/" + rVar;
  37.                 }
  38.                 else
  39.                 {
  40.                     if (ArrFor.Inc.Pos("*=") > 0)
  41.                     {
  42.                         AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("*=") - 1).Trim();
  43.                         AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("*=") + 2, MaxInt).Trim();
  44.                         ArrFor.Inc = lVar + "*" + rVar;
  45.                     }
  46.                 }
  47.             }
  48.         }
  49.     }
  50. }
Advertisement
Add Comment
Please, Sign In to add comment