blob: 529378ce4282f6ab9e0342f362d567f5f4757cab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ %fail% }
{$mode delphi}
program IS_Precedence;
uses
Classes;
var
O1, O2: TObject;
begin
O1 := TComponent.Create(nil);
O2 := TObject.Create;
Writeln(O1 is TComponent or O2 is TComponent); // <<< should not compile because OR has precedence before IS
end.
|