我很难理解从GENERIC SEARCH修改解决方案, 因为我的课程更复杂,我需要创建几个不同的搜索功能
procedure TForm1.Button1Click(Sender: TObject);
var
activities: TList<TActivityCategory>;
search: TActivityCategory;
begin
activities := TObjectList<TActivityCategory>.Create(
TDelegatedComparer<TActivityCategory>.Create(
function(const Left, Right: TActivityCategory): Integer
begin
Result := CompareText(Left.Name, Right.Name);
end));
.....
假设我的 TActivityCategory 看起来像
TActivityCategory = class
FirstName : String;
Secondname : String;
onemore .....
end;
如何在我的活动类中实现对每个字符串的搜索?