Исправлены библиотеки 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 Minor = "10";
|
||||
public const string Build = "3";
|
||||
public const string Revision = "3621";
|
||||
public const string Revision = "3626";
|
||||
|
||||
public const string MainVersion = Major + "." + Minor;
|
||||
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
%MINOR%=10
|
||||
%REVISION%=3621
|
||||
%COREVERSION%=3
|
||||
%REVISION%=3626
|
||||
%MINOR%=10
|
||||
%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
|
||||
YTicks := Ticks(max-min);
|
||||
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 dd := TextWidthP(b.Round(xTicksPrecision).ToString)/2;
|
||||
|
||||
|
|
@ -2556,4 +2558,4 @@ initialization
|
|||
__InitModule;
|
||||
|
||||
finalization
|
||||
end.
|
||||
end.
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Loading…
Reference in a new issue