Why Gemfury?
Push, build, and install
RubyGems
npm packages
Python packages
Maven artifacts
PHP packages
Go Modules
Debian packages
RPM packages
NuGet packages
Repository URL to install this package:
|
Version:
1.6 ▾
|
Program test;
var
r: TObject;
begin
if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
r := TObject.Create;
if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
r.Free;
if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
r := nil;
if r = nil then Writeln('(r = nil) = true') else Writeln('(r = nil) = false');
if r <> nil then Writeln('(r <> nil) = true') else Writeln('(r <> nil) = false');
end.