Units initialization/finalization support added

2025-09-23 07:33:49 +02:00 · 2020-06-07 19:39:30 +03:00
parent 92d967d122
commit bf2e9bcc4b
9 changed files with 104 additions and 42 deletions
--- a/Examples/Console/DateTime/DateTime.dpr
+++ b/Examples/Console/DateTime/DateTime.dpr
@@ -9,7 +9,7 @@ var
  CursorPos: TConsolePoint;

 begin
-  ConsoleInit('Date/Time');
+  InitConsole('Date/Time');

  SetCursorHeight(0);
  SetCursorPos(27, 11);
@@ -29,6 +29,4 @@ begin
    SetCursorPos(CursorPos);
    Sleep(50);
  until KeyPressed;
-
-  ConsoleExit(True);
 end.