Помогите разобраться с дженериками, есть такой код: function TFastList<T>.AddCopy(AItem: T): Integer; begin

Question

Помогите разобраться с дженериками, есть такой код: function TFastList<T>.AddCopy(AItem: T): Integer; begin

Result := -1;
var Item := TClassUtils<T>.CreateInstance;
if TClassUtils<T>.CallMethod('Assign', Item, AItem) then
Result := Add(Item)
end;
И он прекрасно работает с типами, у которых один метод Assign(Value: T); но если у типа 2 перегруженных метода Assign, как понять, какой вызывать? Как правило вызывается не тот и валится на ошибке приведения типов

#lazarus #programming #russian

0

28.01.2024

2 ответов

33 просмотра

Alex Egorov · Answer 1

Сам себе отвечу. За давностью уже позабыл, что TClassUtils<T> это мой метод, а не системный ) поэтому немного его подправил, закоментил старую часть и плюсами - новая, вроде работает, если видно косяки - буду рад услышать class function TClassUtils<T>.CallMethod(const AMethodName: string; var ADestination: T; const AItem: T): Boolean; begin var Ctx := TRttiContext.Create; var RType := Ctx.GetType(TypeInfo(T)); // var Meth := RType.GetMethod(AMethodName); {+} var Meth: TRttiMethod := nil; {+} for var IMeth in RType.GetMethods(AMethodName) do begin {+} var Params := IMeth.GetParameters; {+} if (Length(Params) = 1) and (Params[0].ParamType = RType) then {+} Meth := IMeth; {+} end; Result := Assigned(Meth); if Result then begin var Params: TArray<TValue>; Setlength(Params, 1); Params[0] := TValue.From<T>(AItem); Meth.Invoke(ADestination, Params); end; end;

Alex Egorov · Answer 2

Alex Egorov Автор вопроса

Alex Egorov
Сам себе отвечу. За давностью уже позабыл, что TCl...

До этого я просто получал первый метод AMethodName и вызывал его, и это работало, пока не появились перегрузки, теперь перебираю методы и заданным именем и сравниваю по типу параметра

0

28.01.2024

169 похожих чатов

Помогите разобраться с дженериками, есть такой код: function TFastList<T>.AddCopy(AItem: T): Integer; begin

2 ответов

Похожие вопросы