Jen*_*off 4 delphi polymorphism containers delphi-xe2 spring4d
我有一个包含不同类型值的字典,我想过滤具有特定子类型且满足特定条件的项目:
var
FData: IDictionary<TGUID, TObject>; // Polymorphic
begin
TMicroStep(FData.Values.Single(
function(const O: TObject): Boolean begin
Result := (O is TMicroStep) and (TMicroStep(O).OrderTag = 1);
end))
end;
Run Code Online (Sandbox Code Playgroud)
它可以工作,但由于类型检查和双重强制转换,它看起来很难看。
也许这样的事情是可能的?
var
FData: IDictionary<TGUID, TObject>; // Polymorphic
begin
FData.Values.SingleSubType<TMicroStep>(
function(const MS: TMicroStep): Boolean begin
Result := MS.OrderTag = 1;
end))
end;
Run Code Online (Sandbox Code Playgroud)
Spring 有什么可以帮助我的吗?
不幸的是,Delphi 不支持接口中的参数化方法。这就是为什么IEnumerable<T>没有像OfType<TResult>.
您可以使用我们提供的静态方法TCollections(或者使用 1.2 中提供这些方法的新静态类型TEnumerable),但我不知道您是否比现有的更喜欢它:
TEnumerable.OfType<TObject, TMicroStep>(FData.Values).Single(
function(const MS: TMicroStep): Boolean
begin
Result := MS.OrderTag = 1;
end);
Run Code Online (Sandbox Code Playgroud)
该方法看起来像这样(未经测试但应该有效):
class function TEnumerable.OfType<T, TResult>(
const source: IEnumerable<T>): IEnumerable<TResult>;
begin
Result := TOfTypeIterator<T, TResult>.Create(source);
end;
Run Code Online (Sandbox Code Playgroud)
TOfTypeIterator<T,TResult>来自 Spring.Collections.Extensions。
在处理类时,其 MoveNext 方法中的类型检查当然可以改进以避免 TValue。