Browse Source

* fix for bug #18196, moving teventype broke examples.

git-svn-id: trunk@16559 -
marco 14 năm trước cách đây
mục cha
commit
aa93519b5a

+ 1 - 1
packages/fcl-base/examples/tstelcmd.pp

@@ -3,7 +3,7 @@
 
 
 program testelcmd;
 program testelcmd;
 
 
-uses eventlog;
+uses eventlog,sysutils;
 
 
 Var
 Var
   E : TEventType;
   E : TEventType;