我在书上看指针类型时，看到一个句子：
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;;

复制这个字符串, 并把字符转成大写, 这是什么书啊,貌似漏洞百出
1 dest 没有初始化
2 int(i) 不对, 应为 inc(i)

..我刚学.看不懂.