DagПри необходимости изменить установки SET, лично я делаю так
1.
2.
3.
4.
5.
lcVar=SET("Collate")
****
* code
******
SET COLLATE TO lcVar
Естественно с учетом видимости переменной lcVar
Set`ы менять лучше как можно меньше в процессе работы, в идеале установить при старте и вообще не менять. А то можно на такие грабли попасть, что потом несколько дней паранормальные явления отлавливать придется.
Например:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
proc MAIN
set collate to 'russian'
...
do MyProc
...
do MyProc1
...
proc MyProc1
lcVar=SET("Collate")
set collate to 'machine'
...
do MyProc
...
SET COLLATE TO lcVar
proc MyProc
...
Тут MyProc вызвана и с 'russian' и с 'machine'
если для MyProc критично SET COLLATE то этот код надо дублировать туда, потом есть еще куча других SETов, и в итоге пару раз использовав такое переключение приходим к тому что в итоге прописываем lcVar=SET("Collate") ... SET COLLATE TO lcVar практически в каждую процедуру/метод. А SETов в фоксе далеко не один.
Утрировано немного, но близко к реальности.
Я обычно все необходимые SETы собираю в SETENV.PRG и вызываю при старте проги и из DE.BeforeOpenTables()
Способы обойти не меняя SETа всегда есть. Например при set collate to 'russian'
1.
"pf" = "PF" -> .T.
"pf" == "PF" -> .F.
и наоборот при set collate to 'machine'
1.
"pf" = "PF" -> .F.
lower("pf") = lower("PF") -> .T.
