喫茶XRAY [Mr.XRAY掲示板]

> [ 10_PChar 型と関数や手続きの PChar 型の引数 ]
> http://mrxray.on.coocan.jp/Delphi/Others/Pointer.htm#10

前に話題にした

[ なんでポインタ演算ができないのよ(しくしく) ]
https://hp.vector.co.jp/authors/VA015850/delphi/tips/etc04.html

の内容を盛り込みました．
上のページのコードの意図はよく分かりません．
提示されているコードでは 6 になっていますいが，
6 だと World の W と重なってしまうので，以下のコードでは 5 にしています．

rocedure TForm1.Button1Click(Sender: TObject);
var
  P : PChar;
  S : array[0..999] of Char;
begin
  StrCopy(S, 'Hello World');

  p := @S;
  Memo1.Lines.Add(P);

  P[5] := 'W';
  PChar(P + 6)^ := 'A';
  Memo1.Lines.Add(P);