Использование методов TEnumerable.
<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
uses
Spring.Collections;
type
TPetOwner = class
Name: string;
Pets: IList<string>;
constructor Create(AName: string; APets: IList<string>);
end;
{ TPetsOwner }
constructor TPetOwner.Create(AName: string; APets: IList<string>);
begin
Name:= AName; Pets:= APets;
end;
begin
var PetOwners := TCollections.CreateList<TPetOwner>([
TPetOwner.Create('Higa, Sidney',
TCollections.CreateList<string>(['Scruffy', 'Sam'])),
TPetOwner.Create('Ashkenazi, Ronen',
TCollections.CreateList<string>(['Walker', 'Sugar'])),
TPetOwner.Create('Price, Vernette',
TCollections.CreateList<string>(['Scratches', 'Diesel']))
]);
// Query using SelectMany.
var Query1 := TEnumerable.SelectMany<TPetOwner, string>(
PetOwners, function (petOwner: TPetOwner): IEnumerable<string>
begin
Result:= petOwner.Pets;
end);
Writeln('Using SelectMany:');
for var Pet in Query1 do
Writeln(Pet);
Writeln;
// This code shows how to use Select
// instead of SelectMany.
var Query2:= TEnumerable.Select<TPetOwner, IEnumerable<string>>(
PetOwners, function (petOwner: TPetOwner): IEnumerable<string>
begin
Result:= petOwner.Pets;
end);
Writeln('Using Select:');
for var petList in Query2 do
for var pet in petList do
Writeln(pet);
Readln;
end.
все примеры с сайта https://docs.microsoft.com/en-us/dotnet/api...framework-4.7.2
Там на шарпе может кто не шарит, а спринг хоца юзат ну вот я вам и переведу
To be continue...
ПС. Delphi 10.3.1 Rio, Spring4D 1.2.2.
Все примеры рабочие.
