Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //развернем сокрашеные опрации
- if (ArrFor.Inc.Pos("++") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("++") - 1).Trim();
- ArrFor.Inc = lVar + "+1";
- }
- else
- {
- if (ArrFor.Inc.Pos("--") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("--") - 1).Trim();
- ArrFor.Inc = lVar + "-1";
- }
- else
- {
- if (ArrFor.Inc.Pos("+=") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("+=") - 1).Trim();
- AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("+=") + 2, MaxInt).Trim();
- ArrFor.Inc = lVar + "+" + rVar;
- }
- else
- {
- if (ArrFor.Inc.Pos("-=") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("-=") - 1).Trim();
- AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("-=") + 2, MaxInt).Trim();
- ArrFor.Inc = lVar + "-" + rVar;
- }
- else
- {
- if (ArrFor.Inc.Pos("/=") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("/=") - 1).Trim();
- AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("/=") + 2, MaxInt).Trim();
- ArrFor.Inc = lVar + "/" + rVar;
- }
- else
- {
- if (ArrFor.Inc.Pos("*=") > 0)
- {
- AnsiString lVar = ArrFor.Inc.SubString(1, ArrFor.Inc.Pos("*=") - 1).Trim();
- AnsiString rVar = ArrFor.Inc.SubString(ArrFor.Inc.Pos("*=") + 2, MaxInt).Trim();
- ArrFor.Inc = lVar + "*" + rVar;
- }
- }
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment