added the pascal debugging unit

2002-04-27 08:49:25 +00:00
parent ddb0c16e1d
commit b0351d5098
1 changed files with 28 additions and 0 deletions
--- a/begui/begui/imports/pascal/fdblib.pas
+++ b/begui/begui/imports/pascal/fdblib.pas
@@ -0,0 +1,28 @@
+unit fdblib;
+
+interface
+
+{$linklib 'fdb'}
+
+uses
+  begui;
+
+procedure SendText(text: pchar);cdecl; external;
+
+procedure force;
+
+implementation
+
+procedure force;
+begin
+  writeln('force');
+end;
+
+initialization
+  SendText('----------------------');
+  SendText('App start');
+
+finalization
+  SendText('App end');
+
+end.