VPF::Тонкости работы с динамическими массивами.

PsiMagistr

Дата 5.7.2010, 15:31 (ссылка)

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

Загрузка ...

Опытный

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

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

С первой частью вопроса разобрался своими силами, хотя и остались темные места. Так.

Код


var Mass array of Integer;

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(Mass,1); // Массив из двух элементов 0 и 1;
end;

Обработчик кнопки:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
Mass[0]:= 89;  //Первый элемент
Mass[1] := 7;  //Второй элемент
Mass[2]:= 100;    //Третий элемент. // Третий лишний по идее должна быть ошибка, но ее нет.
Button1.Caption := IntToStr(Mass[2]);   //Выводим на кнопку. Не знаю почему, но выводится. Ошибка происходит при выходе (!) из программы.
end;

Поспешил видно стереть.

Почему именно при выходе?

возможно ли создание динамического массива с одной ячейкой? Пробовал SetLength(Mass,0). Увы...

Это сообщение отредактировал(а) PsiMagistr - 5.7.2010, 16:01

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

"Арфы нет? Возьмите бубен!

Ребята, будем жить!"

(с) "В бой идут одни старики"

---

"ИЕ" - один из самых сумасшедших браузеров в нашей галактике.

CodeMonkey

Дата 5.7.2010, 15:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

1. SetLength(Mass, 1); - устанавливает длину массива в 1 элемент, т.е.е элементов не два, а один.

2. Length(Mass) <> High(Mass).

3.

Цитата(PsiMagistr @ 5.7.2010, 16:31

)

Третий лишний по идее должна быть ошибка, но ее нет.

Подсказка №1: должна ли быть ошибка в таком коде?

Код

type
  PIntegerArrayOf2 = ^TIntegerArrayOf2;
  TIntegerArrayOf2 = array[0..1] of Integer;
var
  X: Integer;
  Y: Integer;
  P: PIntegerArrayOf2;
begin
  X := 1;
  Y := 2;

  P := Pointer(@X);
  
  Memo.Lines.Add('X = ' + IntToStr(X));
  Memo.Lines.Add('Y = ' + IntToStr(Y));
  Memo.Lines.Add('P[0] = ' + IntToStr(P[0]));
  Memo.Lines.Add('P[1] = ' + IntToStr(P[1]));
end;

Подсказка №2: посмотрите, что делает опция Range Check Errors.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

PsiMagistr

Дата 5.7.2010, 16:12 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(CodeMonkey @ 5.7.2010, 15:56

)

1. SetLength(Mass, 1); - устанавливает длину массива в 1 элемент, т.е.е элементов не два, а один.

CodeMonkey, Спасибо. Я тоже так думал, но получилась такая оказия....

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(Mass, 2); // по Вашей логике это массив из двух элементов Их индексы 0 и 1; 
end;

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
Mass[0]:= 89;  //Первый элемент. Есть.
Mass[1] := 7;  //Второй элемент. Есть.
Mass[2]:= 100;    //Третий элемент. Его не должно быть. Но он почему то есть. 
Button1.Caption := IntToStr(Mass[2]);   //Выводим на кнопку мифический третий элемент. Никаких ошибок нет и при выходе тоже.
end;

Это сообщение отредактировал(а) PsiMagistr - 5.7.2010, 16:16

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

PsiMagistr

Дата 5.7.2010, 17:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Хм... Крайне любопытная штука этот лишний элемент...

Добавлено @ 17:08

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(Mass,2,5); // А попытка создания многомерного динамического массива вообще выдает ошибку на этапе компиляции. Хотя я видел массу таких примеров.
end;

Это сообщение отредактировал(а) PsiMagistr - 5.7.2010, 17:13

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

RomanEEP

Дата 5.7.2010, 17:30 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 424
Регистрация: 18.5.2006
Где: Коломна

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

Цитата(PsiMagistr @ 5.7.2010, 16:12

)

Mass[2]:= 100; //Третий элемент. Его не должно быть. Но он почему то есть.

Его нет, просто память по адресу Mass[2] указывает на другой участок памяти, который выделен под другую переменную.
присваиваю Mass[2] ты запарываешь какую-то переменную. Результат - предсказуемый. Программа будет падать, может чаще, может реже - как повезет.
Что бы этого отловить такую ситуацию как можно раньше следуй совету №2 от CodeMonkey!

Цитата(PsiMagistr @ 5.7.2010, 17:05

)

SetLength(Mass,2,5); // А попытка создания многомерного динамического массива вообще выдает ошибку на этапе компиляции. Хотя я видел массу таких примеров.

Чтобы установить размерность 2 мерного массива неплохо бы для начала объявить массив как 2-мерный
x: array of array of Integer
Это же все равно что присваивать переменной-интеджеру значение-строку.

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

Электронные экзамены

PsiMagistr

Дата 5.7.2010, 17:46 (ссылка)

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

Загрузка ...

Опытный

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

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

RomanEEP, спс. Искал опцию Range Check. Естественно там False стояло. Жесть... Это ж такого можно натворить. Я в ауте просто.

Это сообщение отредактировал(а) PsiMagistr - 5.7.2010, 17:47

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

CodeMonkey

Дата 5.7.2010, 18:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Ещё про опции отладки.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

PsiMagistr

Дата 5.7.2010, 18:53 (ссылка)

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

Загрузка ...

Опытный

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

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

CodeMonkey, Благодарю, читаю.

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

graffi

Дата 8.7.2010, 11:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(PsiMagistr @ 5.7.2010, 17:46)

RomanEEP, спс. Искал опцию Range Check. Естественно там False стояло. Жесть... Это ж такого можно натворить. Я в ауте просто.

это _иногда_ бывает нужно.
но вот почему по умолчанию она в false - не знаю.

PsiMagistr

Дата 8.7.2010, 11:59 (ссылка)

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

Загрузка ...

Опытный

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

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

В Дельфи 2009 точно false. Может потому, что если компилировать с этой опцией - прога немного тяжелее по весу выходит. (так в справке сказано)

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

CodeMonkey

Дата 8.7.2010, 12:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Цитата(PsiMagistr @ 8.7.2010, 12:59

)

прога немного тяжелее по весу выходит

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

Представьте такой цикл:

Код

for X := 1 to Length(StrVar) do
  StrVar[X] := Char(Ord(StrVar[X]) xor $42);

Весьма типичных код в некоторых сферах smile

Который обычно выполняется очень быстро. А теперь вы включаете Range Check Errors... и неожиданно всё начинает замедляться, потому что у вас будет 2 * Length(StrVar) проверок InRange.

Впрочем, если ваша программа не делает каких-то чувствительных к скорости манипуляций с массивами - ставьте опцию в True всегда. Можете сделать это для дефолтного проекта (закройте все файлы, Project/Options, галочку поставьте и всё закройте по Ok - теперь каждый новый проект будет иметь эту опцию).

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

PsiMagistr

Дата 13.7.2010, 08:28 (ссылка)

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

Загрузка ...

Опытный

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

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

CodeMonkey, Благодарю.

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

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