掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストを改行するには？ (ID：35715)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
このようなことでいいのだろうか？ 手抜きなので、動作するとこまでしか見ていません。 var data: array[0..311] of WORD; fs: TFileStream; cnt, i,j: Integer; lineText: String; begin //FileStream fs := TFileStream.Create('Efilename.dat', fmOpenRead); Memo1.Lines.BeginUpdate; try // 2Byte単位で読み込み fs.Position := 0; //クリア Memo1.Lines.Clear; //読み込み cnt := fs.Read(data, Sizeof(data)); while cnt > 0 do begin lineText := ''; //読み取ったデータ個数 j := Trunc(cnt / SizeOf(WORD)); for i := 0 to j - 1 do begin //lineText := lineText + Format('%5d', [data[i]]) + ','; lineText := lineText + IntToHex(data[i], 4) + ','; end; //得られたデータを表示 Memo1.Lines.Add(lineText); //次読み込み cnt := fs.Read(data, Sizeof(data)); end; finally fs.Free; Memo1.Lines.EndUpdate; end; end; 普通に、バイナリエディタを使うというのは、選択肢にないのだろうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.