Chip 2000 July/Chip_2000-07_cd.bin/sharewar/prodelph/DLLSUPP.ZIP/TESTPROC.PAS

Pascal/Delphi Source File | 1999-02-12 | 318b | 30 lines

UNIT TESTPROC;
INTERFACE
USES
  Windows;

FUNCTION Start : Integer;

IMPLEMENTATION

PROCEDURE Leer;
BEGIN
END;

FUNCTION Start : Integer;
VAR
  x, i : Integer;
begin
  x := 1;
  FOR i := 1 TO 10000 DO BEGIN
    INC(x);
    INC(x);
    DEC(x);
    Leer;
  END;
  Result := x;
END;

END.