mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
19 lines
335 B
ObjectPascal
19 lines
335 B
ObjectPascal
program tobject5;
|
|
|
|
{$apptype console}
|
|
{$mode objfpc}{$H+}
|
|
var
|
|
Obj: TObject;
|
|
begin
|
|
Obj := TObject.Create;
|
|
if not Obj.Equals(Obj) then
|
|
halt(1); // true
|
|
WriteLn(Obj.GetHashCode); // PtrInt(Obj)
|
|
if Obj.UnitName<>'System' then
|
|
halt(2); // System
|
|
if Obj.ToString<>'TObject' then
|
|
halt(3); // TObject
|
|
Obj.Free;
|
|
end.
|
|
|