home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPBOOK.ZIP / TPBOOK.EXE / SOURCE.EXE / DEBUG.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-09-15  |  1010 b   |  55 lines
  1. { DEBUG.PAS }
  2. {$DEFINE DEBUGGING}
  3. {$IFDEF DEBUGGING}
  4. procedure DebugTrace( S : String; X : Integer );
  5. begin
  6.   Writeln( DebugFile, S,', ', X );
  7. end;
  8. {$ENDIF}
  9.  
  10. function  UpperCase ( S : String ) : String;
  11. var
  12.   I : Integer;
  13. begin
  14.   {$IFDEF DEBUGGING}
  15.   DebugTrace('UpperCase', 0 );
  16.   {$ENDIF}
  17.   for  I := 1 to Length( S )  do
  18.     S[I] := UpCase ( S[I] );
  19.   UpperCase := S;
  20. end; { UpperCase }
  21.  
  22.  
  23. function HeapFunc ( Size : Word ) : integer;
  24. begin
  25.   {$IFDEF DEBUGGING}
  26.   DebugTrace('HeapFunc', 0 );
  27.   {$ENDIF}
  28.  
  29.   HeapFunc := 1;
  30. end;
  31.  
  32. function LowerCase (S : String ) : String;
  33. Var
  34.   I : Integer;
  35. begin
  36.   {$IFDEF DEBUGGING}
  37.   DebugTrace('LowerCase', 0 );
  38.   {$ENDIF}
  39.  
  40.   for I := 1 to length(s)  do
  41.     if ((S[I]>='A') and (S[I]<='Z'))  then
  42.       S[I] :=  Chr( Ord( S[I] ) + 32 );
  43.   LowerCase := S;
  44. end;
  45.  
  46. Function Max ( A, B : Integer ) : Integer;
  47. Begin
  48.   {$IFDEF DEBUGGING}
  49.   DebugTrace('Max', 0 );
  50.   {$ENDIF}
  51.  
  52.   IF A>B THEN Max := A Else Max := B;
  53. End; {Max}
  54.  
  55.