Курсовой проект групп 3341 и 3382 / DMCore / AttributeStats

unit AttributeStats;

interface

uses
Classes,
DmmTypes,
SerializableObject;

type
{}
TDMAttributeStats = class( TDMSerializableObject )
public
intCount : Integer;
realCount : Integer;
missingCount : Integer;
distinctCount : Integer;
uniqueCount : Integer;
totalCount : Integer;
nominalCounts : IArray;

procedure addDistinct( const value : Double; const count : Integer );

procedure serializeObject( ostream : TStream ); override;
procedure deserializeObject( istream : TStream ); override;
end;

implementation

procedure TDMAttributeStats.addDistinct( const value : Double; const count : Integer );
var
tdval : Double;
tival : Integer;
begin
if ( count > 0 ) then
begin
if ( count = 1 ) then uniqueCount := uniqueCount + 1;
tival := Trunc( value );
tdval := tival;
if ( tdval = value ) then intCount := intCount + 1
else realCount := realCount + 1;
if ( Length( nominalCounts ) > 0 ) then nominalCounts[ tival ] := count;
end;
distinctCount := distinctCount + 1;
end;

procedure TDMAttributeStats.serializeObject( ostream : TStream );
begin
end;

procedure TDMAttributeStats.deserializeObject( istream : TStream );
begin
end;

end.