administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

function operator*(p: procedure; n: integer): procedure; extensionmethod;

Browse source 
в PABCExtensions.pas. К сожалению, в pcu пока не сохраняется
This commit is contained in:
miks1965 2017-02-18 19:27:00 +03:00
parent 7270968beb
commit 988789c609
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bin/Lib/PABCExtensions.pas
View file

@ -82,6 +82,22 @@ begin
f.Close
end;
//------------------------------------------------------------------------------
// Операции для procedure
//------------------------------------------------------------------------------
///--
function operator*(p: procedure; n: integer): procedure; extensionmethod;
begin
Result := () -> for var i:=1 to n do p
end;
///--
function operator*(n: integer; p: procedure): procedure; extensionmethod;
begin
Result := () -> for var i:=1 to n do p
end;
{procedure Write<T>(Self: file of T; params vals: array of T); extensionmethod;
begin
foreach var x in vals do

1
bin/Lib/PABCSystem.pas
View file

@ -9975,6 +9975,7 @@ function operator><T1,T2,T3,T4> (Self: (T1,T2,T3,T4); v: (T1,T2,T3,T4)); extensi
///--
function operator>=<T1,T2,T3,T4> (Self: (T1,T2,T3,T4); v: (T1,T2,T3,T4)); extensionmethod := CompareToTup4(Self,v) >= 0;
// --------------------------------------------
// Методы расширения типа Tuple # Extension methods for Tuple
// -------------------------------------------