Тексты программ 355

Function TEMSVector.SingleItemfIndex: LongInt): Single;

var

X: Single;

begin {$IFNDEF NOTCHECK}

if ItemSoSizeOf (Single) then

EMSError($AC) (Ошибка в длине элемента} else {$endIF} begin

GetItem(X,Index) ;

Singleltem :- X end

end; {TEMSVector.SingleItem} {—. _______——_____-;

Function TEMSVector.DoubleItem(Index: LongInt): Double;

var

X: Double;

begin ($IFNDEF NOTCHECK}

if ItemSoSizeOf (Double) then

EMSError($AC) {Ошибка в длине элемента} else {$endIF} begin

Getltem(X,Index) ;

DoubleItem := X end

end; {TEMSVector.DoubleItem} {-,..————————— —/

Function TEMSVector.RealItemfIndex: LongInt): Real;

var

X: Real;

begin ($IFNDEF NOTCHECK} if ItemSoSizeOf (Real) then

EMSError($AC) {Ошибка в длине элемента} else ffendIF} begin

GetItem(X,Index) ;

Realltem := X end

end; {TEMSVector.Realltem} ^————————————;

Function TEMSVector.ExtendedItemtIndex: LongInt): Extended;

var

X: Extended;

begin !$IFNDEF NOTCHECK}

if ItemSoSizeOf (Extended) then

EMSError($AC) {Ошибка в длине элемента} else l$endIF} begin

Getltem(X,Index) ;

Extendedltem := X end

end; ITEMSVector.Extendedltem} ^————————————;