mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 00:41:32 +01:00
870edaf916
of a shortstring (mantis #15693) * changed tobject5 so it checks whether the return values are correct git-svn-id: trunk@14869 -
19 lines
335 B
ObjectPascal
19 lines
335 B
ObjectPascal
program tobject1;
|
|
|
|
{$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.
|
|
|