Procházet zdrojové kódy

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

git-svn-id: trunk@16559 -
marco před 14 roky
rodič
revize
aa93519b5a
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      packages/fcl-base/examples/tstelcmd.pp

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

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