掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストを改行するには？ (ID：35712)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご返答ありがとうございます。 勉強して試みたのですが、 Memo1.Lines.Addとしないと表示させることもできません。 dataは16bitの画像バイナリデータ（312×240） を読み込んだものです。 読み込みの段階で、312個ずつ読み込む方法に 変更しなければなりませんか？ var data : WORD; cnt: WORD; i,j: WORD; cbuff: WORD; begin i :=0 ;j :=0; with TFileStream.Create('filename.dat', fmOpenRead) do try // 2Byte単位で読み込み // Position := 0; // textへの書き込み Memo1.Font.Name := 'ＭＳ ゴシック'; while True do begin cnt := Read(data, Sizeof(data)); if cnt < Sizeof(data) then break; //得られたデータを表示 Memo1.Lines.Add(Format('%5d', [data])); if i=312 then begin Inc(j); i := 0; end; inc(i) ; end; finally Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.