掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMemoryStream の使い方について (ID：11795)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
早速、Moveを使って作ってみました。 コンパイルは通るのですが、実行時にエラーが出ます・・・ どこがいけないんでしょう？。 procedure TForm1.StremDelete(var SourceStream: TMemoryStream; Start: DWord; Len: DWord); var WorkStream: TMemoryStream; begin WorkStream := TMemoryStream.Create; try WorkStream.Position := 0; Move(SourceStream, WorkStream, Start); WorkStream.Position := Start + Len; Move(SourceStream, WorkStream, WorkStream.Size - (Start + Len) + 1); SourceStream.LoadFromStream(WorkStream); finally WorkStream.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.