名前 題名 ▼ 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); > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link