и обращения к его св-ву - поймешь чего в супе не хватает
Не понимаю тоже... Код-то не меняется, дельфийский вариант Меняется только строка имени, которую передаю методу Я могу вообще с пользовательского ввода организовать задание этой строки И если такое имя будет в той коллекции - то программа отработает без падения, если же не будет - то упадёт в недрах
поэтому что тут отлаживать не понятно, код не изменяется
program Project1; {$APPTYPE CONSOLE} uses ActiveX, ComObj; var obj, tag, value: OleVariant; var name: string; begin ComObj.CoInitializeEx(nil, COINIT_APARTMENTTHREADED); obj := CreateOleObject('CCHMIRuntime.HMIRuntime') ; Readln(name); // '@DatasourceNameRT'; tag := obj.Tags[name]; tag.Read(0); WriteLn(tag.Value); Readln; end.
Обсуждают сегодня