Добрый день!
После обновления возникло 2 вопроса.
1. С Case и текстовыми значениями переменной перехода. С помощью описания и перевода на if все решилось.
Но вот 2-ая проблема пока не понятно.
В данном скрипте (ниже, имя "ResetTableAllSQLmessage")
begin
case DataSet.Tag of
1, 2, 3 :tblRecipes.RunSQL('текст запроса', tsSaveFixRow);
4, 5, 19 :tblVehicles.RunSQL('текст запроса', tsSaveFixRow);
10,11,18 :tblWays.RunSQL('текст запроса', tsSaveFixRow);
12 :begin
tblSort.RunSQL('текст запроса '+
'текст запроса '+ QuotedStr(tblGeoWay_TextSelectString.AsStr) +'текст запроса', tsSaveFixRow);
end;
13 :begin
tblSort.RunSQL('текст запроса '+
'текст запроса'+ QuotedStr(tblVehicles_TextSelectString.AsStr) +' текст запроса', tsSaveFixRow);
end;
14,15,16,17 :tblGeometryWays.RunSQL('текст запроса '+ Chr(96) + UpdateInfo.AsStr + Chr(96), tsSaveFixRow);
17,20,21,22 :tblWaysLimits.RunSQL('текст запроса '+ Chr(96) + UpdateInfoLimits.AsStr + Chr(96), tsSaveFixRow);
23,24,25 :tblRoutes.RunSQL('текст запроса', tsSaveFixRow);
end;
end.
Если убрать пару begin ... end в 12 и 13 пункте и компиляция и сохранение проходят без ошибок.
Жду Ваших предположений о причине
Здравствуйте.
Спасибо за информацию о проблеме. Сегодня исправим. Пока, чтобы ошибка не возникала, достаточно добавить пробел между символом ":" и словом "begin", вот так:
12: begin
tblSort.RunSQL('текст запроса '+
'текст запроса '+ QuotedStr(tblGeoWay_TextSelectString.AsStr) +'текст запроса', tsSaveFixRow);
end;