Клуб программистов

    Директива компилятора $ExtendedSyntax определяет, будет ли Delphi использовать некоторые расширения языка Pascal, или нет.

     Это влияет на 3 области:

     1. Обработка функций как процедур
     Пример кода показывает пример работы при активированном и деактивированном $ExtendedSyntax. Когда он включен, Delphi позволяет результатам функции быть проигнорированными - неприсвоенными - и таким образом обрабатывая функции как если бы они были процедурами.

     2. Использование переменной Result в функциях
     При выключенном $ExtendedSyntax вы должны возвращать значение функции, присваивая его псевдопеременной с тем же именем, что и функция. Например: function GetValue : Integer; begin GetValue := 23; end;

     При включенном $ExtendedSyntax вы можете также присваивать результат переменной Result, как в коде примера.

     3. Обработка символьных массивов как строк
     При включенном $ExtendedSyntax, символьному массиву с нулевым начальным индексом может быть присвоено строковое значение. Он также может быть присвоен строке, до тех пор, пока массив содержит символ #0, означающий конец строки.

begin
   // Set extended syntax off
   {$ExtendedSyntax Off}

   // Call the GetValue function without assigning the result
   GetValue;
end;

// A function that simply returns the value 1
function TForm1.GetValue: Integer;
begin
   Result := 1;
end;

Compiltaion fails :

[Error] Unit1.pas(39): Statement expected, but expression of type 'Integer' found
[Error] Unit1.pas(45) Undeclared identifier: 'Result'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

begin
   // Set extended syntax on
   {$ExtendedSyntax On}

   // Call the GetValue function without assigning the result
   GetValue;
end;

// A function that simply returns the value 1
function TForm1.GetValue: Integer;
begin
   Result := 1;
end;

Code compiles OK and runs without doing anything.