掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルの一部を、高速にTMemoで表示するには？ (ID:16404)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
'_Test.txt'ファイルの先頭から300文字をMemoに表示。 procedure TForm1.Button1Click(Sender: TObject); const READ_SIZE = 300; var Buf: PChar; begin with TFileStream.Create('_Test.txt', fmOpenRead) do begin Buf := nil; try GetMem(Buf, READ_SIZE+1); Read(Buf^, READ_SIZE); Buf[READ_SIZE] := #0; Memo1.SetTextBuf(Buf); finally if Assigned(Buf) then FreeMem(Buf); Free; end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.