名前 題名 ▼ Mr.XRAYさん > > よく見かけるのは,Type 宣言の時にポインタ型も定義してしまうやつですね. > > そうすると,SetWaveData(LpBuf) の引数の逆参照を使わずに > 以下のように SetWaveData の引数にポインタ型が使用でき, > var が必要なくなります. > > procedure SetWaveData(buf: Pabuf); > begin > buf[1] := buf[1] + 500; > buf[3] := 133; > end; GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link