掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストから指定バイト数分の文字を取得する方法 (ID：1193)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
すでに解決しているのにレスを付けるのは、 ちょっと気がひけるのですが、 型無しファイルで宣言して、BlockRead で一気に読み込めば、 ループで回す必要はなくなります。 速度的にもこちらの方が有理だと思います。 下記のような感じです。 var ReadLength: integer; f: file; umRead: Integer; RecData: string; begin ReadLength := 20; //読み込み指定サイズ AssignFile(F, FileName); try Reset(F, 1); SetLength(RecData, ReadLength); BlockRead(F, PChar(RecData)^, ReadLength, umRead); if umRead < ReadLength then //指定サイズがファイルサイズより小さい場合 SetLength(RecData, umRead); ShowMessage(RecData); finally CloseFile(F); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.