From 5994abf5e803ce74bd021e38c14fbd9e0c887e95 Mon Sep 17 00:00:00 2001
From: ocoursiere <ocoursiere@d5ff2aa3-e835-421f-bc93-9a7aa3229f71>
Date: Tue, 6 May 2003 22:23:04 +0000
Subject: [PATCH] New SendText function with a string parameter to forget PChar
 conversion... Remove of unused uses

---
 begui/begui/imports/pascal/fdblib.pas | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/begui/begui/imports/pascal/fdblib.pas b/begui/begui/imports/pascal/fdblib.pas
index 301e5ef..d750244 100644
--- a/begui/begui/imports/pascal/fdblib.pas
+++ b/begui/begui/imports/pascal/fdblib.pas
@@ -2,17 +2,21 @@ unit fdblib;
 
 interface
 
-{$linklib 'fdb'}
-
-uses
-  begui;
-
-procedure SendText(text: pchar);cdecl; external;
+procedure SendText(text: pchar);cdecl; external 'fdb';
+procedure SendText(text : string);
 
 procedure force;
 
 implementation
 
+procedure SendText(text : string);
+var
+  local : string;
+begin
+  local := text + #0;
+  SendText(@local[1]);
+end;
+
 procedure force;
 begin
   writeln('force');
@@ -25,4 +29,4 @@ initialization
 finalization
   SendText('App end');
 
-end.
\ No newline at end of file
+end.