Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Вниз

out of memory   Найти похожие ветки 

← →
Nutz   (2009-11-09 19:02) [0]

в memorystream пытаюсь записать некоторые данные. Вот например:

 B: array [0..65535*256] of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
 I, T: Integer;
begin
 T := GetTickCount;
 M := TMemoryStream.Create;
 try
   for I := 1 to 10000 do
     M.Write(B, SizeOf(B));
 finally
   M.Free;
   ShowMessage(format("öèêëîâ: %d; âðåìÿ: %d", [I, GetTickCount - T]));
 end;
end;

В определенный момент вылетает out of memory. В чем проблема и как исправить

---

← →
Игорь Шевченко ©   (2009-11-09 19:08) [1]

Проблема в коде. 10000 по 16*256 килобайт будет сколько ? правильно, 40 гигабайт.
для MemoryStream сколько доступно ? Правильно, меньше 2-х гигабайт.
Чего ты еще хочешь таким кодом ?

---

← →
Anatoly Podgoretsky ©   (2009-11-09 19:59) [2]

> Nutz  (09.11.2009 19:02:00)  [0]

А память не лопнет от таких объмов.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.12.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c