作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
function TSomething.Concat<T>(const E: IEnumerable<IEnumerable<T>>): IEnumerable<T>;
begin
Result := TConcatIterator<T>.Create(E) as IEnumerable<T>;
end;
这不能编译,因为 TConcatIterator<T>
只能连接两个可枚举,但我需要的是一个连接可枚举的可枚举的迭代器。
Haskell 有 concat
执行此操作的函数:
concat [[1, 2, 3], [4,5]] => [1, 2, 3, 4, 5]
Delphi 版本如下所示:
class function TForm1.Concat<T>(
const AEnumerable: IEnumerable<IEnumerable<T>>): IEnumerable<T>;
begin
// ???
end;
procedure TForm1.FormCreate(Sender: TObject);
var
InnerList1: IList<Integer>;
InnerList2: IList<Integer>;
OuterList: IList<IEnumerable<Integer>>;
Concated: IEnumerable<Integer>;
begin
InnerList1 := TCollections.CreateList<Integer>([1, 2, 3]);
InnerList2 := TCollections.CreateList<Integer>([4, 5]);
OuterList := TCollections.CreateList<IEnumerable<Integer>>([InnerList1, InnerList2]);
Concated := Concat<Integer>(OuterList);
end;
如何在 spring4d 中实现这个?
最佳答案
由于 Spring4D 集合是按照 .Net 中的集合建模的,因此您正在寻找的操作/方法称为 SelectMany .
在 1.2 中,我们在 TEnumerable
中有一个静态方法。键入代码,如下所示:
Concated := TEnumerable.SelectMany<IEnumerable<Integer>, Integer>(OuterList,
function(x: IEnumerable<Integer>): IEnumerable<Integer>
begin
Result := x;
end);
但是这有点冗长,因此您可以轻松编写一个方法来处理展平 IEnumerable<IEnumerable<T>>
的特殊情况。到IEnumerable<T>
:
type
TEnumerableHelper = class helper for TEnumerable
class function SelectMany<T>(const source: IEnumerable<IEnumerable<T>>): IEnumerable<T>; overload; static;
end;
class function TEnumerableHelper.SelectMany<T>(
const source: IEnumerable<IEnumerable<T>>): IEnumerable<T>;
begin
Result := TSelectManyIterator<IEnumerable<T>, T>.Create(source,
function(x: IEnumerable<T>): IEnumerable<T>
begin
Result := x;
end);
end;
并像这样轻松使用它:
Concated := TEnumerable.SelectMany<Integer>(OuterList);
SelectMany 操作被延迟执行并延迟计算。
关于delphi - 如何将 IEnumerable 的 IEnumerable 折叠为单个 IEnumerable?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38742366/
我是一名优秀的程序员,十分优秀!