Inc operator overloading problem with latest FPC

[Thaddy]

No, that is correct, but apply that to tour first example. It will work out of the box.

[jamie]

then you have this.

Code: Pascal  [Select][+][-]

1. unit Unit1;
2.  
3. {$mode objfpc}{$H+}
4. {$ModeSwitch AdvancedRecords}
5.  
6. interface
7.  
8. uses
9.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
10.  
11. type
12.   TTest = record
13.     I:Integer;
14.   end;
15.  
16.   { TForm1 }
17.  
18.   TForm1 = class(TForm)
19.     Button1: TButton;
20.     procedure Button1Click(Sender: TObject);
21.   private
22.  
23.   public
24.  
25.   end;
26. Procedure Inc(Var A:Ttest;B:Integer=1) overload  inline;
27. Procedure Inc(Var A:Integer;B:Integer=1) overload inline;
28. var
29.   Form1: TForm1;
30.  
31. implementation
32.  
33. {$R *.lfm}
34.  
35. { TForm1 }
36. Procedure Inc(Var A:Ttest;B:Integer=1);
37. Begin
38.   System.Inc(A.I, B);
39. End;
40. Procedure Inc(Var A:Integer;B:Integer=1);
41. Begin
42.   System.Inc(A, B);
43. end;
44.  
45. procedure TForm1.Button1Click(Sender: TObject);
46. Var
47.   A:Ttest;
48.   B:Integer;
49. begin
50.   Inc(B);
51.   Inc(A);
52. end;
53.  
54. end.
55.  
56.  

[ad1mt]

then you have this.

Code: Pascal  [Select][+][-]

1. Procedure Inc(Var A:Integer;B:Integer=1);
2. Begin
3.   System.Inc(A, B);
4. end;
5.  

Yes, I had thought of that. But I would have re-implement every possible combination of parameter types to Inc, including strings, that the system Inc works with; not just a few integer types.
I think I've decided that the two parameter Inc will not be implemented in my library. They can easily just implement it themselves if they really need it.

[jamie]

There is the Coperators when on and normally defaulted as on.

+=. -= etc.

Not sure if you can do those.