掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データを移動するには？ (ID：27346)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お師匠さん、こんなテもあるよ。 procedure DeleteBlock({var} stream: TMemoryStream; n: Integer); const DSIZE = 24; var p1, p2: PChar; begin with stream do begin p1 := PChar(Memory) + (n * DSIZE); p2 := p1 + DSIZE; Move(p2^, p1^, Size-(p2-Memory)); Size := Size - DSIZE; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.