Sure. I've created a new form to demonstrate:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
operator ** (b1: byte; b2: byte): integer;
implementation
operator**(b1: byte; b2: byte): integer;
var i : Integer;
begin
Result:=1;
for i:=1 to b2 do
Result:=Result*b1;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
b1, b2: byte;
begin
b1 := 10;
b2 := 3;
i := b1 ** b2;
ShowMessage(IntToStr(i));
end;
initialization
{$I unit1.lrs}
end.
The code is OK, and compiles 100%.
When I command Ctrl-D, I get this from JCF:
http://picasaweb.google.com/lh/photo/_ixt2_gM792PLJ9-ISZ4uw?feat=directlink
[image: jcf.png]
2010/2/15 Paul Ishenin <[email protected]>:
> 16.02.2010 3:02, Guionardo Furlan wrote:
>>
>> Well, I see another problem:
>>
>> jcf doesn't recognize operator overloading.
>
> Actually, this was implemented. Can you give an example of code which is
not
> recognized?
>
> Best regards,
> Paul Ishenin.
>
>
> --
> _______________________________________________
> Lazarus mailing list
> [email protected]
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
http://www.guionardofurlan.com.br
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
