Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Тонкости работы с динамическими массивами.


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

Код

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). Увы...

Автор: CodeMonkey 5.7.2010, 15:56
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.

Автор: PsiMagistr 5.7.2010, 16:12
Цитата(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, 17:05
Хм... Крайне любопытная штука этот лишний элемент...

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

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

Автор: RomanEEP 5.7.2010, 17:30
Цитата(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
RomanEEP, спс. Искал опцию Range Check. Естественно там False стояло. Жесть... Это ж такого можно натворить. Я в ауте просто.

Автор: CodeMonkey 5.7.2010, 18:36
http://www.gunsmoker.ru/2009/04/delphi_19.html.

Автор: PsiMagistr 5.7.2010, 18:53
CodeMonkey, Благодарю, читаю.

Автор: graffi 8.7.2010, 11:41
Цитата(PsiMagistr @ 5.7.2010,  17:46)
RomanEEP, спс. Искал опцию Range Check. Естественно там False стояло. Жесть... Это ж такого можно натворить. Я в ауте просто.

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

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

Автор: CodeMonkey 8.7.2010, 12:35
Цитата(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 - теперь каждый новый проект будет иметь эту опцию).

Автор: PsiMagistr 13.7.2010, 08:28
CodeMonkey, Благодарю.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)