掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル読み込みの高速化 (ID:45887)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
もっとスマートな方法もあるだろうけど こんな感じでどうでしょう？ var buf: array of byte; len, ix: integer; begin Assignfile(raw_file,filepath); Reset(raw_file, 1); Seek (raw_file,start_p); len := y_mtx * x_mtx * 3; SetLength(buf, len); read(raw_file, buf, len); CloseFile(raw_file); n := 0; ix := 0; while ix < len do begin b_data[n] := buf[ix]; g_data[n] := buf[ix+1]; r_data[n] := buf[ix+2]; Inc(n); Inc(ix, 3); end; end; 構文のチェックしてないから、エラーでるかも(^^; 要は、必要な分を先にまとめて読み込んでしまって メモリ上で仕訳しましょうって話です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.