Сабж: Есть счетчик, среди прочего он имеет: Наименование, дату поверки, дату следующей поверки. Счетчики поверяются каждые 5 и 4 года в зависимости от фирмы.
Задача: исходя из названия счетчика, и даты поверки выставить соответствующую дату след. поверки. Таких счетчика на форме 4 шт.
Имена компонент содержат нумерацию и так же соответствуют тегам.
Поясню :
ComboBox с выбором имен для перового счетчика имеет имя "m1c" и тег "1" соответственно, 4-ый счетчик имеет имя "m4c" и т.д. Параметры счетчиков сделаны таким же образом, дата поверки первого счетчика "dp1c" и тд.
Дабы не плодить кучу условий я сделал следующий обработчик для всех четырех DateEdit:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
procedure TForm2.dv1cAcceptDate(Sender: TObject; var aDate: TDateTime;
var CanAccept: Boolean);
var i,j:integer;
begin
for j := 0 to ComponentCount - 1 do
begin
if (Components[j] is TsComboBox) then
if (Components[j] as TsComboBox).Name='m'+inttostr(TsDateEdit(Sender).tag)+'c' then
begin
if (Ansipos(AnsiUpperCase('БелЦеннер'),m1c.Text)>0)or(Ansipos(AnsiUpperCase('Zenner'),m1c.Text)>0)
or(Ansipos(AnsiUpperCase('Гран'),m1c.Text)>0) or(Ansipos(AnsiUpperCase('Сенсус'),m1c.Text)>0)
or(Ansipos(AnsiUpperCase('Бетар'),m1c.Text)>0) then
begin
for i := 0 to ComponentCount - 1 do
if (Components[i] is TsDateEdit) then
if (Components[i] as TsDateEdit).Name='dnv'+inttostr(TsDateEdit(Sender).tag)+'c' then
(Components[i] as TsDateEdit).Date:=IncYear(TsDateEdit(Sender).date,5);
end else
for i := 0 to ComponentCount - 1 do
if (Components[i] is TsDateEdit) then
if (Components[i] as TsDateEdit).Name='dnv'+inttostr(TsDateEdit(Sender).tag)+'c' then
(Components[i] as TsDateEdit).Date:=IncYear(TsDateEdit(Sender).date,4);
end;
end;
end;
Возвращаясь к вопросам:
1. Можно ли упростить данную конструкцию? Или пойти каким либо другим путем, не плодя на каждом компоненте одни и те же условия.
2. Почему-то компонента отрабатывает первый раз не правильно. Не важно на какую дату и какой тип счетчика выбирать, результатом будет 30.12.1903. На второй раз срабатывает. Чт-то не так с обработчиком...
3. Можно ли вызвать обработчик к примеру в событии OnChange на Comboboxe с именем счетчика. Чтобы при смене Имени, менялась дата сл. поверки. dv1cAcceptDate(Self, можно ли не менять тут дату,true);
