VPF::Объединение массивов - Форум программистов

LexaL

Дата 25.3.2011, 18:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет

Добрый день. Подскажите пожалуйста, как объединить два двухмерных массива размерностью 63х242 и 78х242 в один? Спасибо!

Frees

Дата 25.3.2011, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

а что значит объединить?

--------------------

Кольцов Виктор Владимирович

LexaL

Дата 25.3.2011, 18:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 23.12.2010

Репутация: нет
Всего: нет

соединить в один

Romkin

Дата 25.3.2011, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 189
Регистрация: 14.11.2006
Где: Москва

Репутация: нет
Всего: 5

И какая размерность должна быть у итогового?

cat512

Дата 25.3.2011, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: 2
Всего: 15

Попробуй так

Код


var
  A, B: array of array of integer;
  I, J: integer;
begin
//медленно
  SetLength(A, 63 + 78, 242);
  for I := 63 to Length(A) - 1 do
    for J := 0 to Length(A[I]) - 1 do
      A[I, J] := B[I - 63, J];
  B := nil;
end;

Код


var
  A, B: array of array of integer;
  I, J: integer;
begin
//быстро
  SetLength(A, 63 + 78, 242);
  System.Move(B[0, 0], A[High(A) - High(B), 0], Length(B) * Length(B[0]) * SizeOf(Integer));
  for i := 0 to Length(A) - 1 do
    for j := 0 to Length(A[I]) - 1 do
      ShowMessage(IntToStr(A[i, j]));
  B := nil;
end;

Это сообщение отредактировал(а) cat512 - 25.3.2011, 19:42

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »