CRT functions/procedures made safe with overloaded Write/WriteLn implementations

2025-09-22 07:03:53 +02:00 · 2020-06-09 03:30:39 +03:00
parent 023d565b81
commit 6ee928a133
6 changed files with 208 additions and 57 deletions
--- a/Examples/Console/DateTime/DateTime.dpr
+++ b/Examples/Console/DateTime/DateTime.dpr
@@ -19,8 +19,8 @@ begin
  repeat
    with GetSystemDate, GetSystemTime do
    begin
-      Write('%02x.%02x.%02x', Day, Month, Year);
-      Write(' - %02x:%02x:%02x', Hours, Minutes, Seconds);
+      Write('%02x.%02x.%02x', [Day, Month, Year]);
+      Write(' - %02x:%02x:%02x', [Hours, Minutes, Seconds]);
    end;
    GotoXY(CursorXY);
    Delay(500);