Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!malgudi!uoft02.utoledo.edu!eve.wright.edu!cse4a004
From: cse4a004@eve.wright.edu (JOHN BLACKWELL)
Newsgroups: comp.lang.pascal
Subject: Re: What's wrong with this:
Message-ID: <1991May02.191410.23984@eve.wright.edu>
Date: 2 May 91 23:13:12 GMT
References: <1991Apr20.011454.25016@javelin.sim.es.com>
Organization: Wright State University
Lines: 17
Nntp-Posting-Host: eve.wright.edu

In article <1991Apr20.011454.25016@javelin.sim.es.com> tpehrson@javelin.sim.es.com writes:
>
>why doesn't this work:
>
>function upper(I:string):string;
> var z:integer; 
> begin
>  for z:=1 to length(I) do
>  if (ord(I[z])>96) and (ord(I[z])<123) then I[z]:=upcase(I[z]);
> end;
>
Try a new header:
 procedure upper(var I:string);

That should let you return changes to I.

		-John Blackwell