PChar 類型的又一些用法

//使用 PChar^var  p: PChar;begin  p := PChar('abcd');  ShowMessage(p);    {abcd}  ShowMessage(p^);   {a}  p := p + 2;  ShowMessage(p^);   {c}  Dec(p);  ShowMessage(p^);   {b}  ShowMessage(p);    {bcd}end;//遍曆 PChar 中的字元var  p: PChar;begin  p := PChar('abcd');  while p^  #0 do  begin    ShowMessage(p^); {分別顯示: a、b、c、d}    Inc(p);  end;end;//替代緩衝區與記憶體配置的簡單方法var  p: PChar;begin  p := PChar(StringOfChar(#0, 255));  GetWindowsDirectory(p, 255); {譬如擷取 Windows 目錄}  ShowMessage(p);              {C:\WINDOWS}end;