Помощь - Поиск - Пользователи - Календарь
Полная версия: Проблема с соединением массивов
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
silent1126
:p2: Знающие помогите новичку! Неделю как начал дельфина осваивать-везде облазил-нигде ответ не найду! Задача такова:

1.Есть массив-он считывается из файла и он статический и одномерный имеет N элементов
2.Есть массив динамический(пока нулевой)
Процесс пошел! Нужно:
3.Присвоить динамическому массиву N элементов из статического
4.Потом все элементы статического массива пересчитываются по некоему алгоритму и присваеваются промежуточному массиву
5.И ГЛАВНОЕ: Как прицепить к динамическому массиву этот промежуточный?
6.ПОВТОРИТЬ с 4 пункта X раз
Должен получится массив из X*N элементов
Заранее спасибо за ценные идеи!
volvo
Цитата(silent1126 @ 17.04.05 22:30)
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: Благодарю! Сейчас попробую реализовать такую идею в проекте!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.