
22.01.2011, 04:48
|
Прохожий
|
|
Регистрация: 22.01.2011
Сообщения: 2
Репутация: 10
|
|
Вопрос снят.
Проблему решил так:
Код:
var
items: IHTMLElementCollection;
b:boolean;
begin
field := theForm.Item(fieldName,instance) as IHTMLElement;
if Assigned(field) then
if field.tagName = 'INPUT' then
begin
inputField := field as IHTMLInputElement;
if inputField.type_='hidden' then begin
items:=(fromForm.tags('INPUT') as IHTMLElementCollection);
b:=false;
for i:=0 to items.length-1 do
if (items.item(i,0) as IHTMLInputElement).name=fieldName then
if b then begin
inputField:=(items.item(i,0) as IHTMLInputElement);
break
end
else b:=true;
end;
end;
(...)
|