UseDllForSystemUnit - включать безусловно если флажок включен

school.pct значительно улучшен
This commit is contained in:
Mikhalkovich Stanislav 2020-02-09 14:53:40 +03:00
parent 536e62e369
commit a9d9bdc345
6 changed files with 40 additions and 23 deletions

View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "6";
public const string Build = "0";
public const string Revision = "2344";
public const string Revision = "2345";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=2344
%MINOR%=6
%REVISION%=2345
%COREVERSION%=0
%MAJOR%=3

View file

@ -1 +1 @@
3.6.0.2344
3.6.0.2345

View file

@ -1 +1 @@
!define VERSION '3.6.0.2344'
!define VERSION '3.6.0.2345'

View file

@ -93,7 +93,8 @@ namespace VisualPascalABC
Workbench.UserOptions.UseDllForSystemUnits = false;
Workbench.UserOptions.PABCDllChecked = true;
}
if (Workbench.UserOptions.DeleteEXEAfterExecute && Workbench.UserOptions.UseDllForSystemUnits && !startWithGoto && !needFirstBreakpoint)
// SSM 09.02.20 - UseDllForSystemUnits включать когда флаг установлен - безо всяких доп. условий
if (/*Workbench.UserOptions.DeleteEXEAfterExecute &&*/ Workbench.UserOptions.UseDllForSystemUnits && !startWithGoto && !needFirstBreakpoint)
BuildService.CompilerOptions.UseDllForSystemUnits = true;
}
else

View file

@ -5,17 +5,23 @@ end.
[var •: тип/Основное/Описание переменной с типом]
var |: тип;
[Print/Операторы/Оператор вывода]
[var • := значение/Основное/Описание переменной с присваиванием значения]
var | := •;
[var (•,•) := (зн1,зн2)/Основное/Описание двух переменных с присваиванием значений]
var (|,•) := (•,•);
[Print/Ввод-вывод/Оператор вывода]
Print(|);
[Println/Операторы/Оператор вывода с переходом на новую строку]
[Println/Ввод-вывод/Оператор вывода с переходом на новую строку]
Println(|);
[ReadInteger/Операторы/Описание целой переменной со вводом]
[ReadInteger/Ввод-вывод/Описание целой переменной со вводом]
var | := ReadInteger;
[ReadReal/Операторы/Описание вещественной переменной со вводом]
[ReadReal/Ввод-вывод/Описание вещественной переменной со вводом]
var | := ReadReal;
[begin … end/Операторы/Составной оператор. Используется для превращения группы операторов в один. begin и end называют операторными скобками]
@ -23,42 +29,52 @@ begin
|
end;
[loop • do …/Управляющие операторы/Оператор цикла с известным числом повторений]
[loop • do …/Операторы/Оператор цикла с известным числом повторений]
loop 10 do
|
[loop • do b … e/Управляющие операторы/Оператор цикла с известным числом повторений]
[loop • do b … e/Операторы/Оператор цикла с известным числом повторений и с телом в виде составного оператора]
loop 10 do
begin
|
end;
[for var i:=• to • do …/Управляющие операторы/Оператор цикла со счётчиком]
[for var i:=• to • do …/Операторы/Оператор цикла со счётчиком]
for var i:=1 to 10 do
|
[for var i:=• to • do b … e/Управляющие операторы/Оператор цикла со счётчиком]
[for var i:=• to • do b … e/Операторы/Оператор цикла со счётчиком и с телом в виде составного оператора]
for var i:=1 to 10 do
begin
|
end;
[if • then …/Управляющие операторы/Условный оператор - неполная форма]
[foreach var x in • do …/Операторы/Оператор цикла foreach]
foreach var x in • do
|
[foreach var x in • do b … e/Операторы/Оператор цикла foreach с телом в виде составного оператора]
foreach var x in • do
begin
|
end;
[if • then …/Операторы/Условный оператор - неполная форма]
if условие then
|
[if • then b … e/Управляющие операторы/Условный оператор - неполная форма]
[if • then b … e/Операторы/Условный оператор - неполная форма - с составным оператором по ветви then]
if условие then
begin
|
end;
[if • then … else …/Управляющие операторы/Условный оператор - полная форма]
[if • then … else …/Операторы/Условный оператор - полная форма]
if условие then
|
else
[if • then b … e else b … e/Управляющие операторы/Условный оператор - полная форма]
[if • then b … e else b … e/Операторы/Условный оператор - полная форма - с составным оператором по ветвям then и else]
if условие then
begin
|
@ -68,22 +84,22 @@ begin
end;
[while • do …/Управляющие операторы/Оператор цикла с предварительным условием]
[while • do …/Операторы/Оператор цикла с предварительным условием]
while условие do
|
[while • do b … e/Управляющие операторы/Оператор цикла с предварительным условием]
[while • do b … e/Операторы/Оператор цикла с предварительным условием]
while условие do
begin
|
end;
[repeat … until •/Управляющие операторы/Оператор цикла с последующим условием]
[repeat … until •/Операторы/Оператор цикла с последующим условием]
repeat
|
until условие;
[case • of … end/Управляющие операторы/Оператор выбора варианта]
[case • of … end/Операторы/Оператор выбора варианта]
case | of
• : …;
end;