Процедура SetPrecisionGroup Назад В начало Вперед

Назначение

Создание группы точности. Процедуру можно использовать для переустановки числа знаков после запятой (точности) ранее созданной группы точности (см. Пример 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.