diff options
Diffstat (limited to 'examples/cross_calculator/lazarus/unit1.pas')
-rw-r--r-- | examples/cross_calculator/lazarus/unit1.pas | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/examples/cross_calculator/lazarus/unit1.pas b/examples/cross_calculator/lazarus/unit1.pas deleted file mode 100644 index 6091a61d3..000000000 --- a/examples/cross_calculator/lazarus/unit1.pas +++ /dev/null @@ -1,58 +0,0 @@ -unit Unit1; - -{$mode objfpc}{$H+} - -interface - -uses - Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, - Spin, StdCtrls; - -type - - { TForm1 } - - TForm1 = class(TForm) - Edit1: TEdit; - Label1: TLabel; - SpinEdit1: TSpinEdit; - SpinEdit2: TSpinEdit; - procedure FormCreate(Sender: TObject); - procedure SpinEdit1Change(Sender: TObject); - private - { private declarations } - public - { public declarations } - end; - -var - Form1: TForm1; - -implementation - -{ TForm1 } - -{$link nimcache/lib/system.o} -{$link nimcache/backend.o} -{$link nimcache/nim__dat.o} -{$linklib c} - -procedure NimMain; cdecl; external; -function myAdd(x, y: longint): longint; cdecl; external; - -procedure TForm1.FormCreate(Sender: TObject); -begin - // we initialize the Nim data structures here: - NimMain(); -end; - -procedure TForm1.SpinEdit1Change(Sender: TObject); -begin - Edit1.text := IntToStr(myAdd(SpinEdit1.Value, SpinEdit2.Value)); -end; - -initialization - {$I unit1.lrs} - -end. - |