blob: cc37379a428d6d104cd33d2bb11eb72fd632e53b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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.
|
