This don't compile ;/Code:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} class operator Tpoint.add(v1, v2: Tpoint): Tpoint; begin Result.x := v1.x + v2.x; Result.y := v1.y + v2.y; end; end.
Bookmarks