From 116c54a8dd83c01a77d394f74bbe2372a8928cb8 Mon Sep 17 00:00:00 2001
From: Grzegorz Adam Hankiewicz <gradha@imap.cc>
Date: Thu, 6 Sep 2012 20:20:34 +0200
Subject: Splits nimrod and lazarus files into separate directories.

---
 examples/cross_calculator/lazarus/unit1.pas | 58 +++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 examples/cross_calculator/lazarus/unit1.pas

(limited to 'examples/cross_calculator/lazarus/unit1.pas')

diff --git a/examples/cross_calculator/lazarus/unit1.pas b/examples/cross_calculator/lazarus/unit1.pas
new file mode 100755
index 000000000..aa0ef6cf7
--- /dev/null
+++ b/examples/cross_calculator/lazarus/unit1.pas
@@ -0,0 +1,58 @@
+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 Nimrod 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.
+
-- 
cgit 1.4.1-2-gfad0