home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / nastroje / d234567 / PRODEL.ZIP / PROCAL2.PAS < prev    next >
Pascal/Delphi Source File  |  2002-07-23  |  2KB  |  87 lines
  1. unit Procal2;
  2. {$O-}  // Do not remove! Delphi might crash !!!!
  3. {$R-}
  4. {$Q-}
  5. {$A+}
  6.  
  7. interface
  8. USES
  9.   Windows;
  10.  
  11. TYPE
  12. {$IFDEF VER90 }
  13.   TMyComp  = Comp;
  14. {$ELSE }
  15.   {$IFDEF VER100 }
  16.     TMyComp  = Comp;
  17.   {$ELSE }
  18.     TMyComp  = Int64;
  19.   {$ENDIF }
  20. {$ENDIF }
  21.   TMyLargeInteger = RECORD
  22.                     CASE Byte OF
  23.                      0 : ( LowPart  : DWORD; HighPart : LongInt );
  24.                      1 : ( QuadPart : TMyComp );
  25.                   END;
  26.  
  27. PROCEDURE Empty;
  28. FUNCTION TopFunction ( VAR index : Integer ) : TMyLargeInteger;
  29. FUNCTION FunctionWith100( VAR index : Integer; loops : Integer ) : TMyLargeInteger;
  30. FUNCTION FunctionWith1000( VAR index : Integer; loops : Integer ) : TMyLargeInteger;
  31.  
  32. implementation
  33.  
  34. FUNCTION DeepFunction : Integer;
  35. BEGIN
  36.   Result := 0;
  37. END;
  38.  
  39. FUNCTION MidFunction : Integer;
  40. VAR
  41.   i : Integer;
  42. BEGIN
  43.   FOR i := 1 TO 10 DO
  44.     Result := DeepFunction;
  45. END;
  46.  
  47. FUNCTION TopFunction ( VAR index : Integer ) : TMyLargeInteger;
  48. VAR
  49.   i : Integer;
  50. BEGIN
  51.   FOR i := 1 TO 10 DO
  52.     index := MidFunction;
  53.   Result.lowpart := 0;
  54.   Result.highpart := 0;
  55. END;
  56.  
  57. FUNCTION FunctionWith100( VAR index : Integer; loops : Integer ) : TMyLargeInteger;
  58. VAR
  59.   i : Integer;
  60. BEGIN
  61.   FOR i := 1 TO loops DO
  62.     index := index + 1;
  63.   Result.lowpart  := 0;
  64.   Result.highpart := 0;
  65. END;
  66.  
  67. FUNCTION FunctionWith1000( VAR index : Integer; loops : Integer ) : TMyLargeInteger;
  68. VAR
  69.   i : Integer;
  70. BEGIN
  71.   FOR i := 1 TO loops DO
  72.     index := index + 1;
  73.   Result.lowpart  := 0;
  74.   Result.highpart := 0;
  75. END;
  76.  
  77. PROCEDURE Empty;
  78. BEGIN
  79. END;
  80.  
  81. PROCEDURE NotUsed;
  82. BEGIN
  83. END;
  84.  
  85.  
  86. end.
  87.