Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TPTOOL5.ZIP/TOLOWER.INC

Text File | 1987-03-28 | 257 b | 16 lines

#log Map string to lower case

function tolower(s: anystring): anystring;
var
   i: integer;

begin

   for i := 1 to length(s) do
      if (s[i] >= 'A') and (s[i] <= 'Z') then
         s[i] := chr( ord(s[i]) + 32 );

   tolower := s;
end;