Class TByteArray2D (unit DynArrB)

Inherits from

TObject

TBigByteArray

Constructors


constructor Create(N1, N2: Longint);

TBigByteArray.

constructor Dim(N1, N2: Longint);

TByteArray2D.

constructor ReadBinary(var F: File);

TByteArray2D.


Functions

procedure Clear;

TByteArray2D.

function Copy: TByteArray2D;

TByteArray2D.

function CopyRow(RowNo: Longint): TBigByteArray;

procedure CopyRow(RowNo: Longint; var Row: TBigByteArray);

TByteArray2D.


destructor Destroy;

TByteArray2D.

procedure FindMax(var i1, i2: Longint; var max: Byte);


procedure FindMinMax(var min, max: Byte);


function Max: Byte;


function Min: Byte;


procedure MirrorX;


procedure MirrorY;

TByteArray2D.

procedure SetRow(ColNo: Integer; RowValues: TBigByteArray);

procedure MultiplyWith( Factor: Single);

TByteArray2D.


function SumColumns: TBigByteArray;

function Sum: Single;

TByteArray2D.


procedure Transpose;

TByteArray2D.

procedure WriteBinary( var F: File );

TByteArray2D.

function GetTotalCount: Longint;

TByteArray2D.

function GetVal(i1, i2: Longint): Byte;


procedure SetVal(i1, i2: Longint; value: Byte);


Properties

property Count1 : Longint


property Count2 : Longint


property TotalCount : Longint


property Value : Byte


Events

Variables

FCount1 : Longint;


FCount2 : Longint;


Values : TBigByteArray;



Constructors


constructor Create(N1, N2: Longint);

TBigByteArray.WriteBinary } (***** end of TBigByteArray


constructor Dim(N1, N2: Longint);

TByteArray2D.Destroy


constructor ReadBinary(var F: File);

TByteArray2D.MirrorY } (*procedure TByteArray2D.MultiplyWith( Factor: Single); begin { TByteArray2D.MultiplyWith } Values.MultiplyWith( Factor); end; { TByteArray2D.MultiplyWith


Functions


procedure Clear;

TByteArray2D.Dim } (***** end of constructors and destructors


function Copy: TByteArray2D;

TByteArray2D.Clear


function CopyRow(RowNo: Longint): TBigByteArray;

procedure CopyRow(RowNo: Longint; var Row: TBigByteArray);

TByteArray2D.Copy


destructor Destroy;

TByteArray2D.Create


procedure FindMax(var i1, i2: Longint; var max: Byte);


procedure FindMinMax(var min, max: Byte);


function Max: Byte;


function Min: Byte;


procedure MirrorX;


procedure MirrorY;

TByteArray2D.MirrorX


procedure SetRow(ColNo: Integer; RowValues: TBigByteArray);

procedure MultiplyWith( Factor: Single);

TByteArray2D.ReadBinary


function SumColumns: TBigByteArray;

function Sum: Single;

TByteArray2D.SetRow } (*function TByteArray2D.Sum: Byte; begin end;


procedure Transpose;

TByteArray2D.SumColumns


procedure WriteBinary( var F: File );

TByteArray2D.Transpose


function GetTotalCount: Longint;

TByteArray2D.CopyRow


function GetVal(i1, i2: Longint): Byte;


procedure SetVal(i1, i2: Longint; value: Byte);


Properties


property Count1 : Longint


property Count2 : Longint


property TotalCount : Longint


property Value : Byte


Events


Variables


FCount1 : Longint;


FCount2 : Longint;


Values : TBigByteArray;