Проблема с функцией

[PaHaNjkee]

Вообщем на форме 2 кнопочки и PageControl с двумя TabSheets. При нажатии на кнопку которая лежит на TabSheet1 создается GroupBox и в нём Edit (сколько нажатий, столько и создаётся)

CreateGB(NumQuest, sTabSheet1, GBQuest, EditQuest);

При создании формы указал размер массива:

var
  GBQuest: array of TsGroupBox;
  EditQuest: array of TsEdit;
  NumQuest: Integer;

const
  MAX_QUESTIONS: integer = 6;

procedure TForm3.FormCreate(Sender: TObject);
begin
  NumQuest := 0;
  NumAnswer := 0;
  SetLength(GBQuest,MAX_QUESTIONS+1);
  SetLength(EditQuest,MAX_QUESTIONS+1);
end;

Нажимаю на кнопку создаётся один GroupBox, затем нажимаю второй раз и исключение.. "Access violation at adress .. "

if NumQuest < MAX_QUESTIONS then begin
    NumQuest := NumQuest + 1;
    CreateGB(NumQuest, sTabSheet1, GBQuest, EditQuest);
  end;

Вот сама функция:

function TForm3.CreateGB(Num: Integer; TB: TsTabSheet; GB: Array of TsGroupBox; Ed: Array of TsEdit): string;
var
  CountChars, i: integer;
  tmp: String;
begin
  CountChars := Length(Chars);
  if Num <= MAX_QUESTIONS then begin
    GB[Num] := TsGroupBox.Create(self);
    with GB[Num] do begin
      Parent := TB;
      for i := 1 to 3 do
        tmp := Chars[Random(CountChars)+1];
      Name := tmp+IntToStr((random(100)*Num));
      Caption := 'Quest '+IntToStr(Num);
      Height := 65;
      Width := 313;
      Left := 0;
      if Num <= 1 then
        Top := StartTop
      else
        Top := GB[Num-1].Top + 74;
    end;
    if Num >= 6 then begin
      Form3.Height := Form3.Height + 74;
      sPageControl1.Height := sPageControl1.Height + 74;
    end;
    Ed[Num] := TsEdit.Create(self);
    with Ed[Num] do begin
      Parent := GB[Num];
      for i := 1 to 3 do
        tmp := Chars[Random(CountChars)+1];
      Name := tmp+IntToStr((random(100)*Num));
      Text := '';
      Height := 21;
      Width := 297;
      Left := 8;
      Top := 24;
    end;
  end;
end;

Ругается как я понял на эту строчку:

Top := GB[Num-1].Top + 74;

Но почему? Размер массива я указал при создании формы, т.е. если я создаю первый GroupBox, переменная := 1, потом переменная := 2 и он не может найти GBQuest[1]? Что за бред?

[northener]

Динамические массивы индексируются с 0, а элемент GB[0] никто не создавал.

[PaHaNjkee]

Сообщение от northener

Динамические массивы индексируются с 0, а элемент GB[0] никто не создавал.

Да, не спорю, но есть же проверка

if Num <= 1 then
  Top := StartTop
else
  Top := GB[Num-1].Top + 74;

Т.е. если переменная переменная > 1, то этот массив никак не будет равняться 0

Странно, так работает

Top := GB[Num].Top + 74;

Но мне нужно узнать Top предыдущего GroupBox'а

[northener]

А что будет когда Num станет равно MAX_QUESTIONS?

[PaHaNjkee]

Сообщение от northener

А что будет когда Num станет равно MAX_QUESTIONS?

Просто GroupBox не будет создаваться и все.
Может функция с массивами не может возвращать String? Я уже просто низнаю, что ему не нравится.

function TForm3.CreateGB(Num: Integer; TB: TsTabSheet; GB: Array of TsGroupBox; Ed: Array of TsEdit): string;

[XE5]

Сообщение от PaHaNjkee

Странно, так работает

Top := GB[Num].Top + 74;

Но мне нужно узнать Top предыдущего GroupBox'а

if Num > Low(GB) then
  Top := GB[Num -1].Top + 74;

P.S. Совет. Если глобально объявлены два, или более массива одинакового размера, то гораздо удобнее создать тип Record, занести туда нужные элементы, и объявить один массив Record записей, вместо двух массивов. Так же советую не задавать размерность массива при старте программы, а увеличивать его длину по мере внесения новых записей.

[PaHaNjkee]

Сообщение от XE5

if Num > Low(GB) then
  Top := GB[Num -1].Top + 74;

P.S. Совет. Если глобально объявлены два, или более массива одинакового размера, то гораздо удобнее создать тип Record, занести туда нужные элементы, и объявить один массив Record записей, вместо двух массивов. Так же советую не задавать размерность массива при старте программы, а увеличивать его длину по мере внесения новых записей.

Спасибо, учту. Помоему понял в чем проблема. Я не указал размер динамического массива GB.

[XE5]

Вы не слышите о чём я Вам говорю. Не нужно указывать размерность массива при старте программы. Учитесь динамически менять размерность по мере надобности.
if Num <= MAX_QUESTIONS then begin
SetLength(GB, Length(GB) + 1);
GB[Num] := TsGroupBox.Create(self);

А лучше так.

if Num > Length(GB) then begin // если индекс вышел за размер массива
SetLength(GB, Length(GB) + 1); // увеличиваем длину массива
GB[Num] := TsGroupBox.Create(self); // инициализируем последний элемент массива

[PaHaNjkee]

Теперь не могу назначить длину массива, пишет, мол, не совместимые типы.

SetLength(GB, Length(GB) + 1);

[Error] Unit3.pas(62): Incompatible types

[XE5]

Нельзя менять длину массива, переданного в процедуру, как параметр. Уберите из имени процедуры массивы, и обращайтесь к ним напрямую. Всё будет работать. Либо так.

function TForm3.CreateGB(Num: Integer; TB: TsTabSheet; var GB: Array of TsGroupBox; Ed: Array of TsEdit): string;