我在书上看指针类型时，看到一个句子：
function strUpper(source:PChar;Maxlen:integer):PChar
var
  dest:PChar;
  i:integer;
 begin
   i:=0;  
   while(i<maxlen)  and (source[i]<>0#) do
   begin
    dest[i]:=UpCase(source[i]);
    int(i);
   end;
    dest[i]:=0#;
    result:=dest;
end;;