Вверх ↑
Ответов: 542
Рейтинг: 12
#1: 2009-02-02 22:50:14 ЛС | профиль | цитата

type
THIRun_1C_OLE = class(TDebug)
private
Ole1C : OleVariant;
r:string;

Ole1C := CreateOleObject(s);
ResOpen:=Ole1C.Initialize(Ole1C.RMTrade,s1+m+s2+s3,'NO_SPLASH_SHOW');

Да нет просто предложеннай тобой схема передачи OleVAriant в другой компонент через String не работает,
потому что операция



r:= VarToStr(Ole1C);
Ole1C := r;
в данном случае просто не работает выходит сообщение RunTime Error

карма: 0

0