名前
題名
▼ Mr.XRAYさん > 約 1 GB のテキストを読み込むテストをしてみました． > 1598 秒 (26.63 分) かかりました． > 当然，32 ビットのアプリでは，読み込めません． > 図の，読み込み中のメモリ消費量が 4.8 GB になっています． > 32 ビットのアプリは，1 つのプロセスで使用可能なメモリは 2 GB ですから． > > 64 ビットアプリで，どの程度のサイズのテキストを読み込めるかは， > 事実上，そのシステムで使用可能なメモリ量によります． > > 環境は，Windows 7 U64(SP1) + Delphi XE2 VCL-64 です． > > テストに使用したコードは，次の通りです． > uses に MMSystem が必要 > > //============================================================================= > // TMemoにテキストファイルのテキストを読み込む > //============================================================================= > procedure TForm1.Button1Click(Sender: TObject); > var > FileName : String; > StartTime : Cardinal; > aTime : Cardinal; > begin > OpenTextFileDialog1.Filter := 'テキストファイル|*.txt'; > if not OpenTextFileDialog1.Execute then exit; > > FileName := OpenTextFileDialog1.FileName; > > StartTime := timeGetTime; > Memo1.Lines.Clear; > Memo1.Lines.LoadFromFile(FileName); > > aTime := timeGetTime - StartTime; > Panel1.Caption := IntToStr(aTime div 1000); > end; >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link