В делфи включается и отключается в параметрах проекта. Про ключи ничего не знаю. В лазаре тоже не знаю, но помню, что раньше было.
Паскальскрипт - это подмножество языка паскаль. Он не обязан полностью совпадать с текущими версиями делфи или FPC.
Модератор: Модераторы
Снег Север писал(а):В делфи включается и отключается в параметрах проекта
{$B+} — complete boolean eval
скалогрыз писал(а):Соответственно, если есть модули, которые бли написаны с учтом полного вычисления, выражений, то для них ситуация с опцией - обратная.
runewalsh писал(а):
- Код: Выделить всё
{$B+} — complete boolean eval
runewalsh писал(а):{$B+} — complete boolean eval
Program test;
{$BOOLEVAL ON}
{$RANGECHECKS ON}
{$LONGSTRINGS ON}
var
s: string;
i: integer;
begin
s:='123456789';
i:=1;
while (i<=length(s)) and (s[i]<>' ') do inc(i);
// writeln(IntToStr(i));
writeln(i);
end.
c := TPSPascalCompiler.Create;
c.BooleanShortCircuit:=true;
c.Compile(src).
{$define unchecked := {$push} {$rangechecks off} {$overflowchecks off} {$define end_unchecked := {$pop} {$undef end_unchecked}}}
function Hash(const s: string): cardinal;
var
i: integer;
begin
result := 0;
for i := 1 to length(s) do
unchecked result := result * 101 + ord(s[i]); end_unchecked
end;
unchecked
function Hash(const s: string): cardinal;
var
i: integer;
begin
result := 0;
for i := 1 to length(s) do
result := result * 101 + ord(s[i]);
end;
end_unchecked
zub писал(а):CynicRus
object`ы умеет?
type
PTest = ^TTest;
TTest = record
__object: Integer;
__parent: PTest;
end;
procedure TTest.create(obj: Integer; parent : PTest);
begin
self.__object := obj;
self.__parent := parent;
end;
function TTest.test: Integer;
begin
writeln(self.__parent^);
result := self.__parent^.__object;
end;
var
test: TTest;
parent : TTest;
begin
parent.create(50, nil);
test.create(100, @parent);
writeln(test);
writeLn(test.__parent^);
end.
Compiled successfully in 703 ms.
{__OBJECT = 100, __PARENT = "parent"::0x96B9AD0 ({__OBJECT = 50, __PARENT = nil})}
{__OBJECT = 50, __PARENT = nil}
Successfully executed.
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3