unit RealList;

interface

uses
//  Classes,    //TList
  ListClone,    //TListClone
  SysUtils;     //Exception

type
  TRecord = Real;

////////////////////////////////////////////////////////////
{$include NumericList.inc.pas}
////////////////////////////////////////////////////////////

  TRealList = TNumericList;

implementation
////////////////////////////////////////////////////////////
{$include NumericList.inc.pas}
////////////////////////////////////////////////////////////

initialization
finalization
end.