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

3.9.0.3422

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-02-09 00:03:16 +03:00
parent 630e682b5f
commit acc59f9c87
5 changed files with 9 additions and 9 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 = "9";
public const string Build = "0";
public const string Revision = "3421";
public const string Revision = "3422";
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%=9
%REVISION%=3421
%COREVERSION%=0
%REVISION%=3422
%MINOR%=9
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3421
3.9.0.3422

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3421'
!define VERSION '3.9.0.3422'

8
TestSuite/CompilationSamples/CRT.pas
View file

@ -185,9 +185,9 @@ function ReadKey: char;// TODO продумать это
var
KeyInfo: ConsoleKeyInfo;
begin
if NextKey <> Chr(0) then
if NextKey <> #0 then
begin
ReadKey := nextkey;
ReadKey := NextKey;
NextKey := #0;
end
else
@ -202,7 +202,7 @@ end;
function KeyPressed: boolean;
begin
KeyPressed := Console.KeyAvailable;
KeyPressed := (NextKey <> #0) or Console.KeyAvailable;
end;
function WindowWidth: integer;
@ -330,4 +330,4 @@ end;
begin
//zdes oshibka ISConsoleApplication u nas nikogda ne inicializiruetsja
__InitModule;
end.
end.