[morebeauty]

Здравствуйте. Я с очередной глупой задачей.

Есть у меня целая пачка рекордов, вида

Код:

1 2 3 4 5 6

TMyRec = record Name:string; Value:string; end;   tMyRecs = array of TMyRec;

которые служат для разных задач. Но смысл у них одинаковый - они хранят сопоставимые данные (определенному Name соответствует определенный Value). Есть для каждого такого рекорда классы, которые в том числе осуществляют поиск Value по введенному Name. Если честно, мне ужасно надоело копипастить код поиска. Хотелось бы как то замутить УНИВЕРСАЛЬНУЮ функцию, в которую я отправлю массив TMyRecs или ссылку на него, поле для поиска и значение поиска, а она бы вернула мне индекс нужного элемента массива. Но я не знаю как передать в функцию поле для поиска. Может, к полям в рекорде можно обращаться по индексу или еще как-нибудь?

[lmikle]

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

Хотелось бы как то замутить УНИВЕРСАЛЬНУЮ функцию, в которую я отправлю массив TMyRecs или ссылку на него, поле для поиска и значение поиска, а она бы вернула мне индекс нужного элемента массива. Но я не знаю как передать в функцию поле для поиска. Может, к полям в рекорде можно обращаться по индексу или еще как-нибудь?

А чем стандартный TStringList в режиме Name=Value не устраивает?

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   L  :TStringList; begin   L := TStringList.Create;   L.Values['aaa'] := 'aaa';   L.Values['bbb'] := 'bbb';   L.Values['ccc'] := 'ccc';     ShowMessage(L.Values['bbb']);     L.Free; end;

[morebeauty]

А чем стандартный TStringList в режиме Name=Value не устраивает?

Тем, что кроме Name и Value там может быть еще множество разных полей.

[morebeauty]

По сути меня бы вполне устроил _recordset, но я не знаю как в него писать. Только как считывать и как получать его с запросов из БД.

[lmikle]

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

По сути меня бы вполне устроил _recordset, но я не знаю как в него писать. Только как считывать и как получать его с запросов из БД.

Ну, если _recordset устраивает, то см в сторону TClientDataSet. Его можно использовать для базоподобного хранилища без базы. Еще есть куча TMemTable-подобных компонентов. Там вообще чисто в памяти все хранится, а интерфейс TDataSet. (Я пользуюсь таким компонентом от DevExpress, благо либа стоит.)

Ну и, соответсвенно, классический вариант. Создаешь базовый класс для своих записей. В нем объявляешь метод сравнения с образцом. Далее создаешь класс для хранения списков твоих классов-записей. В нем пишешь свой метод поиска один раз, но через использование того абстрактного метода в базовом классе для записей. Теперь, при необходимости создать новый тип записи, наследуешься от базового класса и реализуешь только метод получения значения/сравнения. Кстати, если "подтянуть" RTTI, то на нем можно этот метод реализовать прямо в базовом классе. Тогда надо будет наследоваться только для описания структуры записей (набора полей). Но я так делать не люблю. Все-таки RTTI не так быстра, как просто вызов виртуального метода, а написать небольшой кусочек кода не так и сложно.