名前
題名
▼ Mr.XRAYさん > > コーディングの好みもあるかも知れません． > > よく見かけるのは，Type 宣言の時にポインタ型も定義してしまうやつですね． > > type > Pabuf = ^Tabuf; //分かりにくかったら PTabuf でもいいと思う... > Tabuf = array[1..44100] of smallint; > > そうするとキャストの処理の見通しがよくなる場合があります． > Pointer 等という味気のないのを使う必要がなくなります． > > procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; > var Handled: Boolean); > var > LpBuf : Pabuf; > LText : string; > begin > if Msg.message = MM_WOM_DONE then begin > LpBuf := Pabuf(Msg.lParam); > SetWaveData(LpBuf^); > > LText := IntToStr(LpBuf[1]) + sLineBreak + IntToStr(LpBuf[3]); > MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION); > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link