home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / nastroje / d234567 / PRODEL.ZIP / DLLSUPP.ZIP / TESTPROC.PAS < prev   
Pascal/Delphi Source File  |  2000-05-19  |  318b  |  30 lines
  1. UNIT TESTPROC;
  2. INTERFACE
  3. USES
  4.   Windows;
  5.  
  6. FUNCTION Start : Integer;
  7.  
  8. IMPLEMENTATION
  9.  
  10. PROCEDURE Leer;
  11. BEGIN
  12. END;
  13.  
  14. FUNCTION Start : Integer;
  15. VAR
  16.   x, i : Integer;
  17. begin
  18.   x := 1;
  19.   FOR i := 1 TO 10000 DO BEGIN
  20.     INC(x);
  21.     INC(x);
  22.     DEC(x);
  23.     Leer;
  24.   END;
  25.   Result := x;
  26. END;
  27.  
  28. END.
  29.  
  30.