freepascal.ru

Код: Выделить всё

Type
        PData = ^TData;
        TData = record
          id:Integer;
          name:String;
          family:String;
          nikname:String;
       end;


If you want to make your own BST Tree then yes. Otherwise you can use TAVLTree. It is in avl_tree unit. Just add it to your uses section and learn how to use it.

iskander писал(а):Сразу возникает вопрос, строки, по которым требуется поиск, уникальны или нет?

sts писал(а):https://forum.lazarus.freepascal.org/index.php/topic,23070.msg137298.html#msg137298

If you want to make your own BST Tree then yes. Otherwise you can use TAVLTree. It is in avl_tree unit. Just add it to your uses section and learn how to use it.

ssnakess писал(а):да, конечно уникальные

Код: Выделить всё

program test;
{$mode objfpc}{$h+}
uses
  SysUtils, Generics.Collections;

type
  PData = ^TData;
  TData = record
    id: Integer;
    name,
    family,
    nikname: string;
  end;
  TNikMap = specialize TDictionary<string, PData>;
  TIdMap = specialize TDictionary<Integer, PData>;

const
  Data: array of TData = (
    (id: 1; name: 'John'; family: 'Doe'; nikname: 'Wistle'),
    (id: 3; name: 'Tom'; family: 'Brown'; nikname: 'Crow'),
    (id: 7; name: 'Eva'; family: 'Smith'; nikname: 'Dolly')
  );
var
  IdMap: TIdMap;
  NikMap: TNikMap;
  I: Integer;
  p: PData;
begin
  NikMap := TNikMap.Create;
  IdMap := TIdMap.Create;
  for I := 0 to High(Data) do begin
    IdMap.Add(Data[I].id, @Data[I]);      // бросит исключение, если такой ключ уже существует
    NikMap.Add(Data[I].nikname, @Data[I]);
  end;
  if NikMap.TryGetValue('Dolly', p) then
    with p^ do begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end;
  if IdMap.TryGetValue(3, p) then
    with p^ do begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end;
  NikMap.Free;
  IdMap.Free;
end.


Код: Выделить всё

program test;
{$mode objfpc}{$h+}
uses
  SysUtils,Classes;
type
  PData = ^TData;
  TData = record
    id: Integer;
    name,
    family,
    nikname: string;
  end;
 
const
  Data: array of TData = (
    (id: 1; name: 'John'; family: 'Doe'; nikname: 'Wistle'),
    (id: 3; name: 'Tom'; family: 'Brown'; nikname: 'Crow'),
    (id: 7; name: 'Eva'; family: 'Smith'; nikname: 'Dolly')
  );
var StrList: TStringList;
  I: Integer;
begin
StrList:=TStringList.Create;  StrList.Sorted:=True;      //True - сортировать, False - не сортировать
StrList.Duplicates:=dupIgnore;      //dupAccept - сохранять дубликаты (значение по умолчанию), dupIgnore - игнорировать, dupError - вызвать сообщение об ошибке

//Используем 
for I := 0 to High(Data) do  StringList.addObject(Data[I].nikname, TObject(@Data[I])); //и дело в шляпе !
if StringList.Find('Dolly', i) then
   with PData(StringList.Objects[i])^  do
   begin
      WriteLn('id:      ', id);
      WriteLn('name:    ', name);
      WriteLn('family:  ', family);
      WriteLn('nikname: ', nikname);
    end;

  StrList.Free;
end;


Alex2013 писал(а):Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).

Alex2013 писал(а):Зачем такие извраты ? Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).

iskander писал(а):добавление элементов в сортированный TStringList имеет квадратичную сложность

iskander писал(а):Для уникальных ключей всё достаточно просто, используем хешмэп из Generics.Collections(полагаю, айдишки тоже должны быть уникальны), данные хранятся в отдельном массиве, поскольку создаётся два индекса:

Код: Выделить всё

  for I := 0 to High(Data) do begin
    IdMap.Add(Data[I].id, @Data[I]);      // бросит исключение, если такой ключ уже существует
    NikMap.Add(Data[I].nikname, @Data[I]);
  end;


ssnakess писал(а):Есть список ... из 100тыс записей

grot писал(а):Такие объемы обычно принято держать в специализированном хранилище, правильно - в базе данных.

ssnakess писал(а):в строке NikMap.Add(Data[I].nikname, @Data[I]); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?

grot писал(а):Зачем столько данных хранить в памяти ?

grot писал(а):Такие объемы обычно принято держать в специализированном хранилище, правильно - в базе данных.
Да и поиск по Базе будет "быстрым" !

iskander писал(а):

Alex2013 писал(а):Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).

Совместимее с чем?
Насчёт производительности: добавление элементов в сортированный TStringList имеет квадратичную сложность.
А поиск строковых ключей в хеш-таблице размера 10^5 элементов должен быть на порядок быстрее, чем в сортированном списке или двоичном дереве поиска.

ssnakess писал(а):Т.е. вот тут в строке NikMap.Add(Data[I].nikname, @Data[I]); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?

Код: Выделить всё

function mySort(L : TStringList; Item1, Item2: Integer): Integer;
begin
  Result := CompareStr(L[Item1], L[Item2]);
end;

procedure TMainForm.Button1Click(Sender: TObject);
var L : TStringList;
begin
  //
  L := TStringList.Create;
  L.Add('start');
  L.Add('finish');
  L.Add('end');
  L.Add('begin');

  L.CustomSort(@mySort);
  Memo1.Lines.AddStrings(L);
  L.Free;
end;

Код: Выделить всё

function mySort(L : TStringList; Item1, Item2: Integer): Integer;
begin
  Result := CompareStr(PData(L.Objects[Item1])^.nikname , PData(L.Objects[Item2])^.nikname);
end;


Код: Выделить всё

for I := 0 to High(Data) do  StringList.addObject( '', TObject(@Data[I]));

Alex2013 писал(а):1 Никто незнает что там с дженериками дальше будет. ( я когда-то вдоволь намучился с разными версиями )

Alex2013 писал(а):2 Это если искать в несортированном TStringList (Через indexOf ) а Find ищет в сортированном массиве что огромная разница

Alex2013 писал(а):3 Не знаю как это сейчас но ранее что-то типа IdMap.Add работало чудовищно медленно

Alex2013 писал(а):Добавлено спустя 12 минут 38 секунд:
ssnakess писал(а):
Т.е. вот тут в строке NikMap.Add(Data[I].nikname, @Data[I]); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?

В данном случае копия но это не обязательно. ( досточно подменить метод сортировки через CustomSort )