掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データを移動するには？ (ID：27349)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
やっていることは ごくうさんと同じです。 これならちゃんとコンパイルできますよ。 procedure DeleteBlock(ms :TMemoryStream; num :integer); const DSize =24; var P1 ,P2 :Pointer; begin with ms do begin Integer(P1) :=Integer(Memory) + DSize * num; Integer(P2) :=Integer(P1) + DSize; Move(P2^,P1^,Size - DSize * num); Size :=Size -DSize; end; end; 指定できるのは、１番目〜n 番目です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.