Исправлены библиотеки PT4Exam
This commit is contained in:
parent
40bfc046a8
commit
04059ab235
|
|
@ -15,7 +15,7 @@ internal static class RevisionClass
|
||||||
public const string Major = "3";
|
public const string Major = "3";
|
||||||
public const string Minor = "10";
|
public const string Minor = "10";
|
||||||
public const string Build = "3";
|
public const string Build = "3";
|
||||||
public const string Revision = "3621";
|
public const string Revision = "3626";
|
||||||
|
|
||||||
public const string MainVersion = Major + "." + Minor;
|
public const string MainVersion = Major + "." + Minor;
|
||||||
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
|
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
%MINOR%=10
|
|
||||||
%REVISION%=3621
|
|
||||||
%COREVERSION%=3
|
%COREVERSION%=3
|
||||||
|
%REVISION%=3626
|
||||||
|
%MINOR%=10
|
||||||
%MAJOR%=3
|
%MAJOR%=3
|
||||||
|
|
|
||||||
23
InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas
Normal file
23
InstallerSamples/WhatsNew/3_10_4/IsOrdered1.pas
Normal file
|
|
@ -0,0 +1,23 @@
|
||||||
|
type
|
||||||
|
Player = auto class
|
||||||
|
Name: string; Points: integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function GetPlayers := [
|
||||||
|
new Player('Alice', 120),
|
||||||
|
new Player('Bob', 95),
|
||||||
|
new Player('Charlie', 130),
|
||||||
|
new Player('Diana', 110)
|
||||||
|
];
|
||||||
|
|
||||||
|
begin
|
||||||
|
var leaderboard := GetPlayers;
|
||||||
|
Println(leaderboard);
|
||||||
|
if not leaderboard.IsOrderedByDescending(p -> p.Points) then
|
||||||
|
Println('Рейтинг составлен неверно!');
|
||||||
|
|
||||||
|
leaderboard := leaderboard.OrderByDescending(p -> p.Points).ToArray;
|
||||||
|
Println(leaderboard);
|
||||||
|
if leaderboard.IsOrderedByDescending(p -> p.Points) then
|
||||||
|
Println('Теперь рейтинг составлен неверно!');
|
||||||
|
end.
|
||||||
|
|
@ -1 +1 @@
|
||||||
3.10.3.3621
|
3.10.3.3626
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -1 +1 @@
|
||||||
!define VERSION '3.10.3.3621'
|
!define VERSION '3.10.3.3626'
|
||||||
|
|
|
||||||
|
|
@ -1786,6 +1786,8 @@ type
|
||||||
if real.IsNaN(YTicks) then
|
if real.IsNaN(YTicks) then
|
||||||
YTicks := Ticks(max-min);
|
YTicks := Ticks(max-min);
|
||||||
var th := TextHeightP('0');
|
var th := TextHeightP('0');
|
||||||
|
if title<>'' then
|
||||||
|
th := TextHeightP(title);
|
||||||
var tw := GetRY0.Step(YTicks).TakeWhile(ry -> ry <= max).Select(y -> TextWidthP(y.Round(YTicksPrecision).ToString)).Max;
|
var tw := GetRY0.Step(YTicks).TakeWhile(ry -> ry <= max).Select(y -> TextWidthP(y.Round(YTicksPrecision).ToString)).Max;
|
||||||
var dd := TextWidthP(b.Round(xTicksPrecision).ToString)/2;
|
var dd := TextWidthP(b.Round(xTicksPrecision).ToString)/2;
|
||||||
|
|
||||||
|
|
@ -2556,4 +2558,4 @@ initialization
|
||||||
__InitModule;
|
__InitModule;
|
||||||
|
|
||||||
finalization
|
finalization
|
||||||
end.
|
end.
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in a new issue