сохранение строковых данных

[Pcrepair]

Добрый день.

есть следующая ситуация:
1) список строк1 (TStringList), число строк от 1000 до 2000000, формат строки 665:687686:12334456(это пример), где : разделитель
2) список строк2 (TStringList), число строк от 0 до 255, формат строки 12334456(это пример)
3) цикл FOR список1, где отделяется третий параметр (12334456), внутри цикл FOR где выводится строка, если строки в циклах совпадают, тогда строка1 (665:687686:12334456) перезаписывается в хранилище строк с именем третьего параметра (12334456)
таким образом может возникнуть до 256 хранилищ с числом строк от 1000 до 140000 строк в каждом.
в общем это раздел одного большого массива строк на некоторое количество массивом по заданному параметру (список строк2)

вопрос: на основе чего можно сделать такое хранилище строк? TListBox? динамический многомерный массив? что то еще? надо учесть быстродействие, по максимуму необходимо

Заранее спасибо за ответы

[Vapaamies]

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

что то еще? надо учесть быстродействие, по максимуму необходимо

Для третьего списка строк:

begin
  StringList3.Capacity := StringList1.Capacity; // берем ёмкость первого списка
end;

Этого должно оказаться достаточно.

И, да, нет смысла городить динамические массивы, когда есть специализированный класс для хранения строк, нужно лишь уметь им пользоваться.

[Pcrepair]

StringList3.Capacity ???

там вообще может быть сотни новых StringList(для каждого параметра сортировки свой) причем сколько именно заранее неизвестно. хотя... можно конечно и все 256 создать заранее, но это как то не так

procedure TMain.Button1Click(Sender: TObject);
var
  hWin: Cardinal;
  BitMap, btmCtrl: TBitMap;
  LstHWColor, LstCls: TStringList;
  tmp: DWord;
  ClsLst, ColorData, TmpStr, pxColorData: string;
  I, J, H, W, Pos1, Pos2, hPic, wPic, Cnt: integer;
  Red, Green, Blue: Byte;
  Clr: TColor;
begin
  LstCls := TStringList.Create;
  LstHWColor := TStringList.Create;

  LstHWColor.Text := Memo1.Text; // список строк1
  LstCls.Text := Memo2.Text; // список строк2

  for I := 0 to LstHWColor - 1 do
  begin
    pxColorData := (LstHWColor[I]);
    ColorData := выделение(pxColorData);

    for J := 0 to LstCls.Count - 1 do
    begin

      if (ColorData = LstCls[J]) then
      begin
        // вот тут надо сохранить массивы строк с именем LstCls[J]
      end;

    end;

  end;

end;

[Vapaamies]

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

StringList3.Capacity ???

Как-то криво прочитал первое сообщение, часть упустил.

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

там вообще может быть сотни новых StringList(для каждого параметра сортировки свой) причем сколько именно заранее неизвестно. хотя... можно конечно и все 256 создать заранее, но это как то не так

На самом деле «так» или «не так» зависит от конкретных условий. Например, будут ли эти списки передаваться наружу или жить лишь в рамках одной процедуры?

В модуле Cntrs есть TObjectList для ответственного хранения списков объектов, в современных версиях Delphi есть какие-то более продвинутые классы через обобщения. Но в рамках одной процедуры можно не морочиться и описать простой массив, даже не динамический, а распределение и освобождение списков выполнять вручную.

А индексы фиксированны же? То есть, может быть цвет 1, 10 и 100, а промежуточные пусты? Тогда точно обычный массив. Брать элемент, проверять, не nil ли, создавать, если nil, после чего использовать. Если полученную цветомузыку нужно передавать наружу — можно даже свой класс замутить, ибо фиксированные индексы — особый случай.

[Pcrepair]

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

будут ли эти списки передаваться наружу или жить лишь в рамках одной процедуры

дальше обработка в той же процедуре, но потом вывод отфильтрованных данных гПерем, для дальнейшего использования

понятно что есть TObjectList, TList, даже record, TStack, TCollection и... что то еще. но нужно пробовать, проверять. вопрос был к тем кто уже. основной вопрос - быстродействие

[Vapaamies]

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

основной вопрос - быстродействие

Быстродействие чего? Про установку Capacity я уже сказал. По умолчанию там совсем маленькое значение — 8 то ли 16, при превышении увеличивается в 2 раза. Если для результирующих списков выставить сразу LstHWColor.Count div 255 — должна быть явная экономия на перераспределениях с копированием, особенно на начальном росте. Минус — повышенный расход памяти (хотя и не такой повышенный — при сегодняшних объемах-то; там тупо значение, умноженное на 4 байта указателя), если списки каких-то значений окажутся короткими.

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

TObjectList, TList, даже record, TStack, TCollection

Быстродействие у них плюс-минус должно быть одинаковое, а TCollection не подходит, он не для этого.