Home             Change View

Print

Процедура SetPrecisionGroup (String, Byte)

Top  Previous  Next

Назначение

Создание группы точности. Процедуру можно использовать для переустановки числа знаков после запятой (точности) ранее созданной группы точности (Е см. Пример 1). Группа точности для полей устанавливается в разделе Fields у объектов Dialog, Screen и Browse (Е см. Пример 2).

Описание

procedure SetPrecisionGroup (aName : String; aDigits : Byte);

Параметры

aName : String - название группы точности.

aDigits : Byte - число знаков после запятой, которое Вы хотите установить для рассматриваемой группы точности.

Смотрите также

GetPrecisionGroup.

Пример 1

Увеличение на 1 числа знаков после запятой для группы точности "Сумма в рублях":

SetPrecisionGroup ('Сумма в рублях', GetPrecisionGroup(' Сумма в рублях')+1);

Пример 2

Группа точности для полей устанавливается в разделе Fields у объектов Dialog, Screen и Browse:

Interface TestVarName 'Тестирование работы системы группы точности' EscClose;

Show at (2,1,72,19);

Create view

var aPrec1 : Byte; aDouble1 : Double; aSingle1 : Single;

as Select * from Abonents;

Panel aPanel1;

Table Abonents;

Browse MainBrowser;

show at (,,,8);

Fields

Abonents.OfficeNo 'Abonents.OfficeNo';

Abonents.Name 'Abonents.Name' : [12];

Abonents.OfficeStrId 'OfficeStrId' : [5];

aDouble1 'aDouble1' : [Prec1], NoProtect;

aSingle1 'aSingle1' : [Prec1], NoProtect;

end; // Browse MainBrowse

screen ExtFiles

show at (,9,,);

Table Abonents;

Fields

aPrec1 : NoProtect;

aDouble1 : [Prec1], NoProtect;

aSingle1 : [Prec1], NoProtect;

Buttons

cmPrec;

<< 'ExtFiles'

'Точность ' .@@@@@@@@@@@

'aDouble1 ' .@@@@@@@@@@@@@@@

'aSingle1 ' .@@@@@@@@@@@@@@@

<. ~У~становить точность .>

>>

end;

HandleEvent

cmPositionChanged :

begin

aDouble1:= Abonents.OfficeNo * 3.1415926;

end;

cmInsertRecord : insert current Abonents;

cmDeleterecord : delete current Abonents;

cmUpdaterecord : update current Abonents;

end; // HandleEvent

end; // panel

HandleEvent

cmPrec : {

var aOldPrec : Byte;

aOldPrec:= GetPrecisionGroup ('Prec1');

SetPrecisionGroup ('Prec1', aPrec1);

RescanPanel (#Abonents);

RedrawPanel (#Abonents);

}

end;

end.