Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/SORT2.ZIP/LCASE.FUN

Text File | 1993-01-04 | 346 b | 9 lines

function lcase(instring:string):string;
{ returns a string with all the uppercase letters set to lowercase. }
{ Copyright 1988,1989, by J. W. Rider }

var i: integer;
begin for i:=1 to length(instring) do if instring[i] in ['A'..'Z']
   then instring[i]:=chr(ord(instring[i])-ord('A')+ord('a'));
lcase:=instring; end; { function lcase }