AS
вот статью запилишь как Шумкин - смотришь там народ дополнит. едкими комментариями 😊
у меня, к слову, не было , считай, ни одного едкого )) аж удивительно )
Size: a a a
2020 March 17
DB
ну тут как пойдет, конечно )
AK
писать только ради того, чтоб написать, неважно что - это не... неправильно
SB
я вот думаю, стоит ли заморачиваться с оптимизацией поиска языка в таблице кодов ISO639-3. Вроде, не так часто нужен такой поиск, так что можно линейно в массиве пройтись. с другой стороны, перфекционист внутренний требует хитрозадой обработки начальных данных, чтоб хотя бы двоичный поиск можно было задействовать :(
Сделай индекс - словарик <имя языка>-<индекс с таблице языков>, отсортируй и гоняй хоть двоичный поиск, хоть хеш.
AK
там три колонки, вообще уже думал ввести общий индекс и разделить на три массива, каждый со своей сортировкой, но как я сказал, учитывая, что выбор нового языка встречается крайнец редко, острой необходимости в извращениях нет
SB
Я сделал простенький хеш и не парюсь
{ Simple string-to-integer hashtable }
TSimpleStringHash = object
public
procedure Init(Size: Integer = 256);
procedure Add(const Key: string; Value: Integer);
procedure Clear;
function Modify(const Key: string; Value: Integer): Boolean;
{ return -1 if no value for key, suitable for list index }
function ValueOf(const Key: string): Integer;
function FindValue(const Key: string; out Value: Integer): Boolean;
end;
https://github.com/serbod/NovaLib/blob/master/SimpleObj.pas
{ Simple string-to-integer hashtable }
TSimpleStringHash = object
public
procedure Init(Size: Integer = 256);
procedure Add(const Key: string; Value: Integer);
procedure Clear;
function Modify(const Key: string; Value: Integer): Boolean;
{ return -1 if no value for key, suitable for list index }
function ValueOf(const Key: string): Integer;
function FindValue(const Key: string; out Value: Integer): Boolean;
end;
https://github.com/serbod/NovaLib/blob/master/SimpleObj.pas
SB
Добавь сколько надо, для любых колонок.
AK
сделать недолго и не особо трудно, тем более что в FPC уже есть готовые функции и классы строк хэшированных (вон, в inifiles.pp хотя бы). вопрос целесообразности.
AK
Кстати, зачем ты в том файле подключаешь windows ?
AK
а, вижу, из-за дельфи и "InterlockedIncrement"
SB
а, вижу, из-за дельфи и "InterlockedIncrement"
Есть версия для XE https://github.com/serbod/NovaLib/blob/master/SimpleObjXE.pas
AK
да не надо мне линки кидать :) пока не припрёт, вряд ли буду использовать такое у себя. тем более, сейчас ФПЦ юзаю в основном
AK
(прямо сейчас изучаю *.cs файлики чужой программки, точнее, библиотеки, даже нашел мелкую ошибку, чешу затылок, стоит ли переписывать на паскале, раз последний коммит был 11 месяцев назад у человека)
SB
Может уже готовая есть. Были случаи, когда искали биндинги к сишной библиотеке, которая была портирована с паскаля. =)
AK
не, там нестандартная, с попутным исследованием структуры бинарного файла
SB
Тогда перепиши, хуже не будет.
AK
так что у меня есть только эти сырые сырцы для NET и готовые программы на каком-то сишном фреймворке, без исходников с какой-то линковкой libgcj-12.dll и wx containers
AK
...и после этого мне ещё будут говорить, что программы на С заметно компактнее дельфовых :(
AK
два разных автора, два разных источника, для обработки одних и тех же файлов... и нигде нет нормальной документации
Ж
Привет всем, кто может помочь задание сделать