Skip to content

Commit 8e01c4d

Browse files
committed
🚧 Doing...
1 parent 166c8d8 commit 8e01c4d

File tree

3 files changed

+8
-4
lines changed

3 files changed

+8
-4
lines changed

README.md

+4
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,6 @@
11
# delphi-anonymus-methods
22
Using "filter", "map" and "reduce" in Delphi
3+
4+
![Filter, map and reduce on Delphi](img/cover.jpg)
5+
6+
Exemplo utilizando funções anônimas genêricas.

img/cover.jpg

58.5 KB
Loading

src/Example.Filter.pas

+4-4
Original file line numberDiff line numberDiff line change
@@ -37,10 +37,10 @@ procedure FilterNumbers;
3737
begin
3838
//Números múltiplos de 3
3939
Numeros := TArray<Integer>.Create(1, 3, 4, 5, 6, 14, 15, 17, 22, 23, 25, 32);
40-
// Filtro := TUtil.Filter<Integer>(Numeros, function (Numero: Integer): Boolean
41-
// begin
42-
// Result := (Numero mod 3 = 0);
43-
// end);
40+
Filtro := TUtil.Filter<Integer>(Numeros, function (Numero: Integer): Boolean
41+
begin
42+
Result := (Numero mod 3 = 0);
43+
end);
4444

4545
for Numero in Filtro do
4646
Write(Numero.ToString + ', ');

0 commit comments

Comments
 (0)