VPF::динамическая память - Форум программистов

slinx

Дата 27.4.2008, 01:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 26.4.2008

Репутация: нет
Всего: нет

Почему кога я последовательно выделяю память динамическому массиву функцией 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 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

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

Код

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

?

Это сообщение отредактировал(а) volvo877 - 27.4.2008, 12:14

slinx

Дата 27.4.2008, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 26.4.2008

Репутация: нет
Всего: нет

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

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

Код


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

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

Код


  setlength(mas,10000,3);

aktuba

Дата 27.4.2008, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

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

--------------------

volvo877

Дата 27.4.2008, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

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

)

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

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

Код

SetLength(mas, i, 3);

slinx

Дата 28.4.2008, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 26.4.2008

Репутация: нет
Всего: нет

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

aktuba

Дата 28.4.2008, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

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

)

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

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

--------------------

MetalFan

Дата 28.4.2008, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Код

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

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

Код

setlength(mas,10000);

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

Это сообщение отредактировал(а) MetalFan - 28.4.2008, 14:40

--------------------

There are always someone smarter than you...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »