added the pascal debugging unit
This commit is contained in:
28
begui/begui/imports/pascal/fdblib.pas
Normal file
28
begui/begui/imports/pascal/fdblib.pas
Normal file
@@ -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.
|
||||||
Reference in New Issue
Block a user