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

[PaHaNjkee]

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

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

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

Нет, напрямую нельзя, у меня несколько массивов, и нужно для каждого создавать GroupBox, Edit. Т.е. нужно будет создавать тогда 2 функции.
var к сожалению не работает.

[PaHaNjkee]

Попробывал так:

procedure TForm3.CreateGB(Num, Max: Integer; TB: TsTabSheet; var GB2: array of TsGroupBox; Ed: array of TsEdit);
var
  i: integer;
  tmp: String;
  GB: Array of TsGroupBox;
begin
  for i := 1 to Length(GB2) do
  GB[i] := GB2[i];
  SetLength(GB, Length(GB) + 1);

Странно, заработало.
Но опять же ошибка на Top := ... Опять не существует ячейки памяти

[eval]

выбросьте эти ненужные параметры, тогда заработает

Странно, заработало

это только кажется

[XE5]

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

у меня несколько массивов

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

[eval]

Ошибаетесь

->

Но опять же ошибка на Top := ... Опять не существует ячейки памяти

, ку ?

[eval]

procedure TForm3.CreateGB(Num, Max: Integer; TB: TsTabSheet; var GB2: array of TsGroupBox; Ed: array of TsEdit);
var
i: integer;
tmp: String;
GB: Array of TsGroupBox;
begin
for i := 1 to Length(GB2) do
GB[i] := GB2[i];
SetLength(GB, Length(GB) + 1);

мне вот еще интересно, автор то сам понимает, что он тут понаписал?

[XE5]

Вон оно где собака порылась. Запутался в собственных переменных. Ну пусчай сам распутывается

[PaHaNjkee]

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

мне вот еще интересно, автор то сам понимает, что он тут понаписал?

Я еще изучаю азы дельфи, если честно я сам не понял что написал
Лишь бы найти верное решение проблемы.

[eval]

Лишь бы найти верное решение проблемы.

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

[XE5]

PaHaNjkee Открою Вам страшную тайну. Вашу процедуру без проблемно можно написать так, что она вообще будет работать без передаваемых в неё параметров

procedure TForm1.BlaBla;

и без массивов в var процедуры. Так что учитесь. Умение приходит с практикой.