Проблема с соединением массивов, Как это реализовать? Опции

[silent1126]

:p2: Знающие помогите новичку! Неделю как начал дельфина осваивать-везде облазил-нигде ответ не найду! Задача такова:

1.Есть массив-он считывается из файла и он статический и одномерный имеет N элементов
2.Есть массив динамический(пока нулевой)
Процесс пошел! Нужно:
3.Присвоить динамическому массиву N элементов из статического
4.Потом все элементы статического массива пересчитываются по некоему алгоритму и присваеваются промежуточному массиву
5.И ГЛАВНОЕ: Как прицепить к динамическому массиву этот промежуточный?
6.ПОВТОРИТЬ с 4 пункта X раз
Должен получится массив из X*N элементов
Заранее спасибо за ценные идеи!

[volvo]

6.ПОВТОРИТЬ с 4 пункта X раз

Возникает вопрос: X на каком этапе становится известным? Или он известен заранее?

[silent1126]

В моём проекте он должен задаватся пользователем. Но пока(на этапе разработке) его можно обьявить заранее. Например 10 повторов.

[volvo]

Ну, вот тебе пример, как можно объединить динамический массив (arr) со статическим (T). StringGrid я использовал ТОЛЬКО для визуализации.

var
  arr: array of integer;
  curr_len: integer;
  T: array [1 .. 2] of integer = (1, 2);

procedure TForm1.FormCreate(Sender: TObject);
begin
  curr_len := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
  inc(curr_len, 2);
  setlength(arr, curr_len); j := 1;
  for i := curr_len - 2 to pred(curr_len) do begin
    arr[i] := T[j]; inc(j)
  end;
  for i := 0 to pred(curr_len) do
    stringgrid1.cells[1, i] := inttostr(arr[i])
end;

[silent1126]

:molitva: Благодарю! Сейчас попробую реализовать такую идею в проекте!