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

3.7.1.2784

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2021-01-06 16:24:29 +03:00
parent c46a3dc394
commit 51ec035b25
7 changed files with 27 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "7";
public const string Build = "1";
public const string Revision = "2783";
public const string Revision = "2784";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=7
%REVISION%=2783
%COREVERSION%=1
%REVISION%=2784
%MINOR%=7
%MAJOR%=3

7
PABCNetHelp/LangGuide/PABCSystemUnit/Files/Extension methods for array of T.html
View file

@ -2,6 +2,7 @@
<param name="Keyword" value="AdjacentFind">
<param name="Keyword" value="ArrEqual">
<param name="Keyword" value="BinarySearch">
<param name="Keyword" value="Cartesian">
<param name="Keyword" value="Combinations">
<param name="Keyword" value="ConvertAll">
<param name="Keyword" value="Fill">
@ -36,6 +37,8 @@
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò, ñîâïàäàþò ëè ìàññèâû</td></tr>
<tr><td><code><b>function</b> BinarySearch&lt;T&gt;(Self: <b>array</b> <b>of</b> T; x: T): integer;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âûïîëíÿåò áèíàðíûé ïîèñê â îòñîðòèðîâàííîì ìàññèâå</td></tr>
<tr><td><code><b>function</b> Cartesian&lt;T&gt;(Self: <b>array</b> <b>of</b> T; n: integer): <b>sequence </b> <b>of</b> <b>array</b> <b>of</b> T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò n-òóþ äåêàðòîâó ñòåïåíü ìíîæåñòâà ýëåìåíòîâ, çàäàííîãî ìàññèâîì</td></tr>
<tr><td><code><b>function</b> Combinations&lt;T&gt;(Self: <b>array</b> <b>of</b> T; m: integer): <b>sequence </b> <b>of</b> <b>array</b> <b>of</b> T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò âñå ñî÷åòàíèÿ ïî m ýëåìåíòîâ</td></tr>
<tr><td><code><b>function</b> ConvertAll&lt;T, T1&gt;(Self: <b>array</b> <b>of</b> T; converter: T-&gt;T1): <b>array</b> <b>of</b> T1;</code>
@ -107,7 +110,9 @@
<tr><td><code><b>function</b> Min(Self: <b>array</b> <b>of</b> real): real;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ìèíèìàëüíûé ýëåìåíò</td></tr>
<tr><td><code><b>function</b> Permutations&lt;T&gt;(Self: <b>array</b> <b>of</b> T): <b>sequence </b> <b>of</b> <b>array</b> <b>of</b> T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td></tr>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò âñå ïåðåñòàíîâêè ìíîæåñòâà ýëåìåíòîâ, çàäàííîãî ìàññèâîì</td></tr>
<tr><td><code><b>function</b> Permutations&lt;T&gt;(Self: <b>array</b> <b>of</b> T; m: integer): <b>sequence </b> <b>of</b> <b>array</b> <b>of</b> T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò âñå ÷àñòè÷íûå ïåðåñòàíîâêè èç n ýëåìåíòîâ ïî m</td></tr>
<tr><td><code><b>function</b> RandomElement&lt;T&gt;(Self: <b>array</b> <b>of</b> T): T;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Âîçâðàùàåò ñëó÷àéíûé ýëåìåíò ìàññèâà</td></tr>
<tr><td><code><b>function</b> Shuffle&lt;T&gt;(Self: <b>array</b> <b>of</b> T): <b>array</b> <b>of</b> T;</code>

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.7.1.2783
3.7.1.2784

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.7.1.2783'
!define VERSION '3.7.1.2784'

18
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -7222,7 +7222,9 @@ end;
function Eof(f: Text): boolean;
begin
if f.sr <> nil then
if f = input then
Result := Eof
else if f.sr <> nil then
Result := f.sr.EndOfStream
else if f.sw <> nil then
raise new IOException(GetTranslation(EOF_FOR_TEXT_WRITEOPENED))
@ -7231,7 +7233,9 @@ end;
function Eoln(f: Text): boolean;
begin
if f.sr <> nil then
if f = input then
Result := Eoln
else if f.sr <> nil then
Result := f.sr.EndOfStream or (f.sr.Peek = 13) or (f.sr.Peek = 10)
else if f.sw <> nil then
raise new IOException(GetTranslation(EOLN_FOR_TEXT_WRITEOPENED))
@ -7240,6 +7244,11 @@ end;
function SeekEof(f: Text): boolean;
begin
if f = input then
begin
Result := SeekEof;
exit;
end;
if f.sw <> nil then
raise new IOException(GetTranslation(SEEKEOF_FOR_TEXT_WRITEOPENED));
if f.sr = nil then
@ -7257,6 +7266,11 @@ end;
function SeekEoln(f: Text): boolean;
begin
if f = input then
begin
Result := SeekEoln;
exit;
end;
if f.sw <> nil then
raise new IOException(GetTranslation(SEEKEOLN_FOR_TEXT_WRITEOPENED));
if f.sr = nil then

BIN
bin/PascalABCNET.chm
View file

Binary file not shown.