From 6670f3b92cc732bb947a58dc8a0acfdae224f0c9 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sun, 25 Aug 2002 13:31:35 +0000
Subject: [PATCH] MG: replaced C-style operators

git-svn-id: trunk@3242 -
---
 lcl/stdctrls.pp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lcl/stdctrls.pp b/lcl/stdctrls.pp
index f6c830cad7..ce836497db 100644
--- a/lcl/stdctrls.pp
+++ b/lcl/stdctrls.pp
@@ -588,20 +588,20 @@ begin
       '&' :
          If I + 1 <= Length(Str) then begin
            If Str[I+1] = '&' then begin
-             I += 2;
+             Inc(I,2);
              Tmp := Tmp + '&';
            end
            else begin
              If Result  < 0 then
                Result := Length(Tmp) + 1;
-             I += 1;
+             Inc(I,1);
            end;
          end
          else
-           I += 1;
+           Inc(I,1);
       else begin
         Tmp := Tmp + Str[I];
-        I += 1;
+        Inc(I,1);
       end;
     end;
   SetLength(Str,0);
@@ -631,6 +631,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.35  2002/08/25 13:31:35  lazarus
+  MG: replaced C-style operators
+
   Revision 1.34  2002/08/24 06:51:22  lazarus
   MG: from Andrew: style list fixes, autosize for radio/checkbtns