Массивы. Множество как один.

[Человек_Борща]

Доброго времени суток!

Есть список объектов, каждый объект наделен структурой:

type
   TMyStruct=packed record
   Buff:array of string;
   Len:NativeUInt; //Length(Buff)
   Count:NativeUInt; //Len-1
   Size:NativeUInt; //SizeOf(Buff)
   end;

Есть некий менеджер этих объектов.
Задача менеджера в том, чтобы собрать из N массивов, 1 большой массив и оттуда, случайно, выдернуть любой элемент.

Как создать 1 большой массив?
Варианты:
Объявить buff:array of string у менеджера и туда загнать все массивы через CopyMemory.

Другой вариант:
Принять все массивы за 1 массив, не объединяя их в 1 массив(Сложить длинны всех массивов), выбрать случайное число, потом как-то узнать к какому массиву принадлежит это число.

Мои мысли(вариант 2):

var
  i, i2, BuffMax: Integer;
  iRand: Int64;
begin
  for i := 0 to Count - 1 do
    BuffMax := BuffMax + Items[i].Images.BuffCount;
  // Общая длинна всех массивов

  Randomize;
  iRand := RandomRange(0, BuffMax); // Случайный номер

  for i := 0 to Count - 1 do
  begin
    if (iRand < Items[i].Images.BuffCount) then
    begin
      for i2 := 0 to (Count - 1 - i) do
        iRand := iRand - Items[i2].Images.BuffCount;
      // Вычисляю позицию эл-та, вычитая наименьшие массивы.

      Result := Items[i].Images.Buff[i];
    end;
  end;
end;

[Аватар]

Общее к-во есть. Рандомно исходя из него взять индекс. Пробежаться в цикле по списку объектов и вычислить в каком из них находится строка соответствующая индексу. Взять строку

Вариант 2. Рандомно вычислить индекс объекта в списке. В нем рандомно вычислить индекс строки в массиве

[Stilet]

Задача менеджера в том, чтобы собрать из N массивов, 1 большой массив

Те массивы ведь размещены в памяти? Так собери в один большой массив указатели на элементы тех массивов, а не сами массивы. Сделай а-ля индексацию данных.

[Человек_Борща]

Так?

var
  i, i2, BuffMax: Integer;
  iRand: Int64;
begin
  for i := 0 to Count - 1 do
    BuffMax := BuffMax + Items[i].Images.BuffCount;
  // Общая длинна всех массивов

  Randomize;
  iRand := RandomRange(0, BuffMax); // Случайный номер

  for i := 0 to Count - 1 do
  begin
    if (iRand < Items[i].Images.BuffCount) then
    begin
      for i2 := 0 to (Count - 1 - i) do
        iRand := iRand - Items[i2].Images.BuffCount;
      // Вычисляю позицию эл-та, вычитая наименьшие массивы.

      Result := Items[i].Images.Buff[i];
    end;
  end;
end;

Stilet, что имеется ввиду? Куда собрать, во что?

[Аватар]

Похоже, но 2-ой вариант мне более симпатичен - циклов нет и все та же рандомность

[phomm]

_Собирать_ обязательно, или только выдернуть надо?
Если только выдернуть - можно просто запомнить индексы той записи где массив и самой строки в некий списочек, а потом по нему взять рандом.
Пример:
запись1: массив (а, б, в), запись2: массив(г, д), запись3: массив(е)
собираем: 1(1,1) 2(1,2) 3(1,3) 4(2,1) 5(2,2) 6(3,1) - массив из 6 элементов, рандомим 6 и тянем по индексам нужную строку.

А вообще, задачу не уловил... как-то абстрактно, да ещё терминология путаная.
Замечу только ещё, что copymemory для строк не надо делать, они и так ведь указатели, просто сграбить все в кучу и всё (только не менять)

[Stilet]

что имеется ввиду? Куда собрать, во что?

Ну я может тоже не правильно понял, но подумал что тебе нужна карта массивов, по которой можно быстро найти любой элемент в любом массиве, и уже отталкиваясь от нее обрабатывать все массивы, как будто это один большой массив, не смотря на фрагментацию.
не?

[Человек_Борща]

Аватар, я сбит с толку вашим ответом
phomm
, Stilet,
Есть одномерные массивы в количестве N, и разных размеров X.
Необходимо их собрать в 1 массив, и оттуда взять случайный элемент.

Тут проблема:
1. массивов может быть очень много, или они будут иметь очень большой размер.
Я думаю, что это имеет значение при сборки их в 1 массив, путем CopyMemory,memcpy или же через цикл:

var
  a,b:array of string;
...
  for j:=0 to Length(b) do
  begin
  SetLength(a,Length(a)+1);
  a[Length(a)]:=b[j];
  end;

Довольно долго.

Придумал вариант, не собирать их действительно в массив, а образно сложить все размеры массивов в 1, выбрать оттуда число.. :
Как определить к какому массиву принадлежит выбранное это число?

Код, приведенный в посте 4-е - это вроде бы делает.

[Аватар]

я сбит с толку вашим ответом

Пост 2 почитайте, я там добавлял. Но прочитав ваш #8 я перестал понимать пост #1

[Человек_Борща]

Аватар,

Но прочитав ваш #8 я перестал понимать пост #1

Странно я тоже... обновил пост №1

Перечитал ваш пост, думаете это тоже самое, что собрать все в кучу и вытащить X?