LoadFromFileで200MB以上のファイルを読み込むためには？

アーク 2011-10-20 17:42:14 No: 41056 IP: 192.*.*.*

Delphi 2007を使用しています。
LoadFromFileを使用しているのですが、200MB以上のファイルを読み込むことができません。
現在は応急処置として、エラーメッセージを出して、分割してもらうようにしています。

200MB以上のファイルを読み込めるようにするにはどうしたら良いでしょうか？

宜しくお願いします。

編集削除

アーク 2011-10-20 17:47:35 No: 41057 IP: 192.*.*.*

＜追記＞
TStringListの話です。

編集削除

igy 2011-10-20 21:07:24 No: 41058 IP: 192.*.*.*

試したところ、普通に読み込めました。

Delphi2007
Windows7 Pro 32bit メモリ：2G

編集削除

アーク 2011-10-21 09:44:07 No: 41059 IP: 192.*.*.*

igyさんありがとうございます。

私の環境も、メモリ：4Gの違いはあれど、「メモリが足りません。」と出ますね〜;;
エディタのようなものをつくろうと思っているのですが、かなり大きいファイルを読みこませるとエラーになりますね。

LoadFormFile以外に、コンポーネント等、おすすめのものがありましたら、書き込みお願いします。

編集削除

アーク 2011-10-21 09:59:23 No: 41060 IP: 192.*.*.*

200MB以上と言っていますが、大きいなら大きいだけ読み込ませたいです。
（１GB以上の巨大ファイル対応）。

編集削除

TAK906 2011-10-22 16:39:07 No: 41061 IP: 192.*.*.*

TStingListで大きなファイルを扱ってうまく行かなかった事があります、
固定長だったので１行を array[0..80] of char のように宣言し
TMemoryStream を使って処理して解決しましたけど。

編集削除

monaa 2011-10-22 17:14:15 No: 41062 IP: 192.*.*.*

カキソースでメモリ超えを確認しました。(D2011 32bit)
Add、SaveToFileそれぞれ別の原因でメモリが足りなくなるようです。
改行の数も関係するようです。
そもそも、人間が読めるレベルの情報量では無いため私は気にしませんが。
このレベルのデータを扱う場合はTFileStream辺りを使って部分読み込みするしか無いと思います。

procedure TForm1.Button1Click(Sender: TObject);
var
  aStrList:TStringList;
  i: Integer;
begin
  aStrList:=TStringList.Create;
  try
  for i := 0 to 110000000 do   //118633501
    aStrList.Add('');
  except
    ShowMessage(IntToStr(i));
  end;
  aStrList.SaveToFile('test.txt');
  aStrList.Free;
end;

編集削除

山本隆 2011-10-30 19:15:57 No: 41063 IP: 192.*.*.*

TStringListのソースコードを見てみると、SetCapacityメソッド中のReallocMem関数でEOutOfMemory例外が発生しているように思います。
Capacityプロパティであらかじめ十分なメモリを確保したらどうなりますか。

編集削除