Модератор: Модераторы
Код: Выделить всё
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.
Для уникальных ключей всё достаточно просто, используем хешмэп из Generics.Collections(полагаю, айдишки тоже должны быть уникальны), данные хранятся в отдельном массиве, поскольку создаётся два индекса: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 делает тоже самое только проще и совместимее(А возможно и быстрее ).
Как вариант - да, можно и так, но если полей по которым искать несколько, то по каждому надо делать свой TStringList.Alex2013 писал(а):Зачем такие извраты ? Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).
добавит 100тыс строк в StringList - долгая пестня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тыс записей
100 килозаписей - это копейки. Примерно с таким объемом работает SEN (чуть более 85 тысяч записей на энергии и чуть более двух тысяч - на нуклиды). И никаких баз данных там не надо. Есть еще один проект, но там данные не для публикации, - 200 килозаписей, причем добавляются ежедневно десятками. Даже мысли не возникло в БД это пихать.grot писал(а):Такие объемы обычно принято держать в специализированном хранилище, правильно - в базе данных.
ssnakess писал(а):в строке NikMap.Add(Data.nikname, @Data); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?
grot писал(а):Зачем столько данных хранить в памяти ?
grot писал(а):Такие объемы обычно принято держать в специализированном хранилище, правильно - в базе данных.
Да и поиск по Базе будет "быстрым" !
1 Никто незнает что там с дженериками дальше будет. ( я когда-то вдоволь намучился с разными версиями )iskander писал(а):Совместимее с чем?Alex2013 писал(а):Обычный TStringList делает тоже самое только проще и совместимее(А возможно и быстрее ).
Насчёт производительности: добавление элементов в сортированный TStringList имеет квадратичную сложность.
А поиск строковых ключей в хеш-таблице размера 10^5 элементов должен быть на порядок быстрее, чем в сортированном списке или двоичном дереве поиска.
) массив )ssnakess писал(а):Т.е. вот тут в строке NikMap.Add(Data.nikname, @Data); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?
Код: Выделить всё
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]));Потрясающе веский аргумент из уст человека, прожившего уже почти четверть 21 века и по сию пору считающего хеш-таблицу извращением.Alex2013 писал(а):1 Никто незнает что там с дженериками дальше будет. ( я когда-то вдоволь намучился с разными версиями )
Утверждение без доказательства можно отвергнуть без всякого объяснения.Alex2013 писал(а):2 Это если искать в несортированном TStringList (Через indexOf ) а Find ищет в сортированном массиве что огромная разница
См пункт 2.Alex2013 писал(а):3 Не знаю как это сейчас но ранее что-то типа IdMap.Add работало чудовищно медленно
Alex2013 писал(а):Добавлено спустя 12 минут 38 секунд:
ssnakess писал(а):
Т.е. вот тут в строке NikMap.Add(Data.nikname, @Data); первый аргумент будет добавлен ссылкой на строку или будет создаваться её копия?
В данном случае копия но это не обязательно. ( досточно подменить метод сортировки через CustomSort )