Продолжим:
Я создал DialogPage2 (диалоговое окно) и в нем 4 элимента EditA, EditB, EditV, EditG(которые отвечают за столбцы А, Б, В, г)
case StringPart(SL[Col],1,chr(9)) of
'А':if NewOldExpl then // ячейка А, если NewOldExpl=True, то
Begin // открываем первый раздел (который существовал до изменений)
if XMLMode //проверка режима дигиталс-регистратор
then
Memo.Text:=SEF(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode'),'KZ.txt') //присваивание Мемо значенияиз списка KZ.txt для ХМЛ
else Memo.Text:=SEF(Param('KZ',Row),'KZ.txt'); //иначе присваиваем значения из списка KZ.txt для ин4
end //закрываем первый раздел
else //иначе (если NewOldExpl=False)
begin //открываем второй раздел (для работы с диалоговым окном)
EditA.text:=SEF(XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode'),'KZ.txt'); //в мемо EditA назначаем подсказку (номер рядка из фактического обменника)
EditB.text:=PrepareXMLNMList(',');//и также назначаем остальным элементам EditB, EditV, EditG значения подсказок
EditV.text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode');
EditG.text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Purpose');
dialogpage2.showmodal;//терепь выводим диалог на экран, с подсказками, который можно править. Для диалогового окна задаем в свойствах Visible False, чтоб не віводить окошко по окончанию обработки кода.
Memo.Text:=EditA.text //заносим в в мемо экспликации значение из окна диалогового окна
end;//закрываем второй раздел
'Б':if NewOldExpl then // Запускаем ячейку Б, все делается аналогично описанному выше, только не надо присваивать каждый раз подсказку и выводить диалоговое окно, так как делается это один раз
Begin
if XMLMode
then Memo.Text:=PrepareXMLNMList(',')
else
Memo.Text:=' '+Param('NM',Row);
HAlign:=haLeft;
end
else
Memo.Text:=EditB.text;
'В': if NewOldExpl then
Begin
if XMLMode
then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/Proprietors/ProprietorInfo/ProprietorCode')
else Memo.Text:=Param('KZ',Row);
end
else
Memo.Text:=EditV.text;
'Г':if NewOldExpl then
Begin
if XMLMode
then Memo.Text:=XPath(XML573Root+'InfoPart/CadastralZoneInfo/CadastralQuarters/CadastralQuarterInfo/Parcels/ParcelInfo/CategoryPurposeInfo/Purpose')
else Memo.Text:=Param('CV',Row);
end
else
Memo.Text:=EditG.text;
Сперва выводит окно, потом идет обработка и вторая экспликация вылазит так как надо!
Вот вам и 600 строк кода, в которых я не шибко разобрался(хотя общую схему понял).
Я вынужден отказаться от поддержки ин4, у меня есть другой (старый) дигиталс для этого. Иначе шаблон становится слишком громоздким и не читабельным, также откажусь от кода регистратора. Мне оно явно не надо.
Цитата: Да, но эту функцию можно целиком перенести в начало скрипта, в этом случае нужно также переменную DecDelimeter объявить как глобальную и позаботиться о ее инициализации до первого вызова AnyStrToFloat.
Пока выставил в региональных настройках символ точки, как разделителя. И убрал пробелы в цифровых значениях.
Подумаю об этом после "облегчения" шаблона.
|
)
)
)