/
lasersquad
/
DynamicArrays
Обзор
Документация
Войти
/
lasersquad
/
DynamicArrays
Код
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
dynamicarrays/prj/Delphi/DynamicArraysTests/TestTObject.pas
39 строк
611 B
lasersquad0
more THarrayG tests added
22 июл 2024, 17:53
22 июл 2024, 17:53
eeaea2d
Код
Авторство
О чём код?
unit TestTObject; interface type TTestObject = class private FValue: Integer; public constructor Create(Value: Integer); function Equals(Obj: TObject): Boolean; override; function GetHashCode: Integer;override; end; implementation { TTestObject } constructor TTestObject.Create(Value: Integer); begin inherited Create; FValue := Value; end; function TTestObject.Equals(Obj: TObject): Boolean; begin if Obj is TTestObject then Result := FValue = TTestObject(Obj).FValue else Result := inherited; end; function TTestObject.GetHashCode: Integer; begin Result := FValue; end; end.