Форум программистов, компьютерный форум, киберфорум
Наши страницы
SuvAlexander
Войти
Регистрация
Восстановить пароль
Оценить эту запись

Тест на знание Delphi

Запись от SuvAlexander размещена 29.05.2018 в 19:45

Какой будет результат работы:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Project1;
 
{$APPTYPE CONSOLE}
 
type
  TValueObj = class
    Value: Variant;
  end;
 
var
  aObj: TValueObj;
begin
  aObj := nil;
 
  {$B-} // In the {$B-} state, the compiler generates code for short-circuit Boolean expression evaluation, which means that evaluation stops as soon as the result of the entire expression becomes evident in left to right order of evaluation.
  if Assigned(aObj) and  not aObj.Value then
    Writeln('True')
  else
    Writeln('False');
end.
Размещено в Без категории
Просмотров 359 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru