Текущий архив: 2002.06.17;
Скачать: CL | DM;
Вниз
Господа, подскажите пожалуйста самый быстрый Найти похожие ветки
← →
Smok_er (2002-05-31 09:27) [0]способ обнаружения записи в StringList. Т.е. при добавлении очень большого числа строк и использовании метода IndexOf для определения, есть ли уже запись или нет, процесс начинается очень быстро, но по мере увеличения числа записей очень сильно замедляется.
Причем сначала я делал по-другому - сначала закидывал все в один стринглист, сортировал, а потом постепенно идя от последнего к первому элементу, с этого стринг лист закидывал в другой.
И еще один вопрос - если к стринглисту применить сортировку, то новые записи будут добавляться с учетом сортировки или в конец?
← →
MBo (2002-05-31 09:31) [1]если поставить sorted:=true, то новые строки встанут на место
← →
Vitaly (2002-05-31 09:45) [2]Надо же было сбацать такой хитрый алгоритм
и не проверить, а как же добавляются
новые строки при sorted := true.
← →
Smok_er (2002-05-31 09:46) [3]А скорость нахождения какой-то записи при этом будет быстрее?
Т.е. вопрос такой:
допустим, в стринглисте 2000 записей.
нам надо проверить 100000 записей, есть ли какие-то из них в стринг листе.
интересно, этот код будет работать быстрее, если стринглист StringList1 будет отсортирован?
if StringList1.IndexOf(a)=-1 then
StringList1.Add(a);
← →
Smok_er (2002-05-31 09:49) [4]2 Vitaly
дело в том, что я сортировал в самом конце. Относительно свойства sorted не знал, но интересен вопрос в моем предыдущем постинге. Мы просто одновременно написали.
← →
MBo (2002-05-31 09:51) [5]несравнимо быстрее- будет двоичный поиск
← →
Smok_er (2002-05-31 09:55) [6]А можно пример реализации?
← →
MBo (2002-05-31 09:59) [7]Предыдущее 31.05.02 09:51 следует читать:
при sorted:=true IndexOf сам использует двоичный поиск
← →
handra (2002-05-31 10:16) [8]
//Быстро, но требует памяти при большом количесве слов
unit wrd_tree;
interface
type
TWordTreeNode=class(TObject)
public
Links: Array[byte] of Pointer;
Id: Integer;
constructor Create;
destructor Destroy; override;
end;
TWordTree = class(TObject)
private
FRoot: TWordTreeNode;
public
constructor Create;
destructor Destroy; override;
function FindWord(wrd: string): Integer;
procedure AddWord(wrd: string; id: Integer);
end;
implementation
constructor TWordTreeNode.Create;
begin
FillChar(Links,sizeof(Links),0);
Id := 0;
end;
destructor TWordTreeNode.Destroy;
var i: Integer;
begin
for i:=Low(Links) to High(Links) do
if Links[i]<>nil then begin
TWordTreeNode(Links[i]).Destroy;
Links[i] := nil;
end;
Id := 0;
inherited;
end;
constructor TWordTree.Create;
begin
FRoot := TWordTreeNode.Create;
end;
destructor TWordTree.Destroy;
begin
FRoot.Free;
inherited;
end;
function TWordTree.FindWord(wrd: string): Integer;
var i: Integer;
node: TWordTreeNode;
begin
Result := 0;
node := FRoot;
for i:=1 to Length(wrd) do begin
node := node.Links[ord(wrd[i])];
if node=nil then Exit;
end;
Result := node.Id;
end;
procedure TWordTree.AddWord(wrd: string; id: Integer);
var i: Integer;
b: byte;
node: TWordTreeNode;
begin
node := FRoot;
for i:=1 to Length(wrd) do begin
b := ord(wrd[i]);
if node.Links[b]=nil then
node.Links[b] := TWordTreeNode.Create;
node := node.Links[b];
end;
node.Id := id;
end;
end.
← →
handra (2002-05-31 10:19) [9]Конечно, можно хранит в параметрах Data у элементов TStringList значение 32-битной хэш-функции и искать по этому значению...
← →
Romkin (2002-05-31 10:36) [10]Да посмотрите же исходники - если TStringList.Sorted
то IndexOf... применяет быстрый поиск
Установи Duplicates := dupIgnore; Sorted := true;
И просто закидывай все строки - получится отсортированный список уникальных строк, причем очень быстро, быстрее написать сложно
← →
Smok_er (2002-05-31 10:38) [11]2 handra
Спасибо за вариант, но к сожалению, именно из-за "дефицита" памяти и огромного числа строк (может быть порядка 100.000) я и ищу более быстрый и ресурсосберегающий метод.
Кстати, при sorted:=True увеличение быстродействия ну очень сильно ощутимо. Возросло где-то раз в 50-100.
Интересно, а как к примеру сортировать, если
1) нужна сортировка в обратном порядке;
2) сортировать числовые значения.
И еще один вопрос. Если использовать схему Name=Value, то если где-то в строке Name встречается знак "=" - происходит каша. Может есть способы, как от этого избавиться...?
← →
erik (2002-05-31 15:50) [12]А чем неустраивает DBGrid для вывода, а хранить строки можно в TClientDataSet. Это будет на порядок быстрее, если есть желание то можно использовать отсортированый масив. Выводить можно спомощю сверх быстрого "TArrayGrid - визуальный компонент для табличного представления данных" http://home.earthlink.net/~akonshin/delphi_ru.htm
← →
Smok_er (2002-06-05 23:49) [13]Спасибо за ответ! Долго не заходил в интернет по некоторым причинам.
Честно говоря, не очень хочется связываться с базами данных
Да они и не нужны в принципе, зато увеличат размер программы как минимум в 2 раза.
Страницы: 1 вся ветка
Текущий архив: 2002.06.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.007 c
