Здравствуйте.

Не могу понять, как получить имя и тип параметра в запросе. Существую функция НайтиПараметры, как можно из нее вытащить сведения о параметре?

Подскажите, пожалуйста.

что сделать нужно скажи лучше

я тоже не понял

Есть Запрос вида:
Запрос = ВЫБРАТЬ
    Банки.Наименование,
    Банки.Город,
    Банки.Адрес ИЗ Справочник.Банки КАК Банки
ГДЕ
    Банки.Город = &Город

Необходимо получить имя параметра(Город в данном случае) и его тип, чтобы дальше присвоить ему значение.
Запрос.НайтиПараметры
...
Как то вытащить имя параметра
...
Запрос.УстановитьПараметр(Город, Москва)

Пишется класс на делфи для работы с запросами в 1С.

Для каждого Параметр из Запрос.НайтиПараметры() цикл
....

КонецЦикла

(4) соотвественно в цикле
Параметр.Имя                - имя
Параметр.ТипЗначения        - тип

Для каждого Параметр из Запрос.НайтиПараметры() цикл
....

КонецЦикла

А в Делфи это никак((

в дельфи можно тупо пропарсить текст запроса
параметры начинаются с "&"
найдешь имена

тип - хз

в дельфи можно тупо пропарсить текст запроса
параметры начинаются с "&"

Не не катит... синтаксис языка запросов 1С не стандартизован тильда может измениться и потом заново класс этот разрабатывать?

(8) ты пошутил что-ли?

(6) почему никак?

В смысле?

(10) А как?

что ты передаешь в дельфи вообще?

Парсить это проблемно. Метод НайтиПараметры автоматом определяет типы (если нужны типы тогда парсить весь запрос).

В делфи такая конструкция:

Ole1C := CreateOleObject(Edit1.Text);
Resopen := Ole1C.Connect(Edit2.Text);
query := Ole1C.NewObject('Запрос');
query.Text:='ВЫБРАТЬ Банки.Наименование, Банки.Город, Банки.Адрес ИЗ Справочник.Банки КАК Банки ГДЕ Банки.Город = &Город';
vv := query.FindParameters;

А вот как дальше вытаскивать имена и типы я не знаю...
В класс должен приходить текст запроса, он его обрабатывает, выводить список параметров и просить подставить значения к ним, дальше выполнить этот запрос и вернуть результат.

попробуй

vv.Name
vv.ValueType

for each p from vv do begin
p.name;
p.ValueType;
end;

(1:) пробовал... не помогло
(17) p какого типа? Variant?

(16)
for i:=1 to vv.Count do
begin
 p:=vv[i];
 p.Name;
 p.ValueType;
end;

(18) у тебя отладчик в делфях украли? или табло поломалось?

(18) попробуй vv[i].Name
чтобы с типами переменных не париться

vv[i] - не работает пробовал. Ошибка: Variant не является массивом.

(22) а какое значение вообще в vv возвращается после
vv := query.FindParameters;
?

(23) Возвращается указатель на ячейку

с vv работает:
vv.Count и vv.Find
А вот как оттуда имя достать...
Есть еще идеи???
Уже который день с этим мучаюсь...

Имена можно выпарсить по "&"

(26) Можно, но этот метод не подходит...(((

У типа возвращаемого функцией НайтиПараметры есть свойство <Имя параметра> к нему можно как-то обратиться?

(28)
нет.
мучайтесь до просветления, коли парсинг запрещает религия.

(28) НайтиПараметры возвращает список параметров
тебе нужно выбрать элементы списка, тогда Элемент.<ИмяПараметра>

лучше домучай vv, ты на правильном пути
что вернет VarType(vv) ?

(29) т.е. это вообще невозможно сделать?

Тогда у меня еще есть вопросик. Обрабатываю результаты запроса в следующем виде
 for i := 0 to ColCount - 1 do ArrRes[i,0] := OLEQueryRes.Columns.Get(i).Name;

 i := 0;
 while i < ColCount do
 begin
   OLEDataColumns := OLEQueryRes.UnloadColumn(i);
   j := 1;
   while j < OLEDataColumns.UBound do
   begin
     StrTmp := OLEDataColumns.Get(j - 1);
     if StrTmp <> NULL then ArrRes[i, j] := StrTmp
     else ArrRes[i, j] := '';
     inc(j);
   end;
   inc(i);
 end;


Работает достаточно долго, не подскажите почему?

(31) Вернула NULL

(33) может vv.items? или vv.item? Ты ведь на Дельфи программируешь, должен в этом разбираться.

(34) Вообще с делфи я начинал потом перешел на PHP а потом вообще достаточно долго ничего не кодил...((( Поэтому сейчас сижу и вспоминаю... + 1С изучаю.)))
Щас попробую

(33) Неа не работает...

(36) в общем не получится так получить параметры.. смирись
либо парсить запрос, либо..

есть еще один вариант решения, но не универсальный..
требует внесения изменений в конфигурацию 1С

(37) не в конфигурацию вносить изменения не надо. Ну чтож ладно буду парсить, раз другого решения нет...

Тогда у меня другой вопрос: Как в выборке переходить на следующую строку?
Choose := Query.Execute.Choose;
for i:=0 Choose.count - 1 do
Choose.get(i); //проходит по столбцам а дальше пишет выход за область данных

Пробовал через Выгрузить, но там получается что-то долго все это происходит...

Спасибо Всем!)))

while Choose.Next do
 Value = Choose.<ИмяПеременнойЗапроса>;
end;

а вообще посмотри как в 1С с запросами работают,
там все то же самое будет