Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > динамическая память

Автор: slinx 27.4.2008, 01:26

Почему кога я последовательно выделяю память динамическому массиву функцией SetLength она тратит больше памяти ежели просто взять и выделить память, хотя длинна high одинакова.

Код


program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  mass = array of array of byte;
var
mas,mas2:mass;
i:integer;
begin
  for i:=1 to 10000 do
  begin
  setlength(mas,i,3)
  end;
  setlength(mas2,10000,3);
  writeln(high(mas),' ',high(mas2));
  readln;
end.

Автор: volvo877 27.4.2008, 12:11

slinx, а ты уверен, что mas и mas2 инициализируются одинаково? Может, надо вот так:

Код

  SetLength(mas, 10000);
  for i := 0 to 9999 do begin
    SetLength(mas[i], 3);
  end;

Автор: slinx 27.4.2008, 21:35

Нет, я вот о чем, одному и тому же массиву мы присваиваем память по разному,

если выделять память так, то память жрется фантастически,

Код


  for i:=1 to 10000 do
  begin
  setlength(mas,i,3)
  end;

а если так, то все нормально.

Код


  setlength(mas,10000,3);

Автор: aktuba 27.4.2008, 22:00

Компилятор выделяет тот объем, который ты запросил, но у системы он берет больший, с запасом. При следующем запросе новый блок еще больше, соответственно у системы отбирается тоже больше. Вот тебе и "снежный ком" по отбору памяти у системы.

Автор: volvo877 27.4.2008, 22:36

Цитата(slinx @ 27.4.2008, 20:35

)

если выделять память так, то память жрется фантастически,

Еще раз: что ты делаешь вот этим, ты понимаешь:

Код

SetLength(mas, i, 3);

Автор: slinx 28.4.2008, 08:33

volvo877 ну по идеи выделяю память массиву на +1 десять тысяч раз в итоге должно получится 10000, но как я уже понял, я неправ, а как же тогда выделять память массиву поэтапно?

Автор: aktuba 28.4.2008, 12:55

Цитата(slinx @ 28.4.2008, 09:33

)

как же тогда выделять память массиву поэтапно?

Лучше этого избежать...

Автор: MetalFan 28.4.2008, 14:38

Код

 for i:=1 to 10000 do
  begin
  setlength(mas,i,3)
  end;

этот фрагмент кода вообще ошибочен, без

Код

setlength(mas,10000);

вначале,
как уже ранее сказал volvo877