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

Text File | 1988-01-29 | 223 b | 14 lines

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;