Light007
Зарегистрирован: 15.10.2014 Сообщения: 1
|
Добавлено: Ср Окт 15, 2014 8:10 pm Заголовок сообщения: |
|
|
Тоже интересуюсь данным вопросом.
Для замены символа сделал так (см.ниже), вроде работает, но как-то громоздко.
Правильно ли я делаю, или есть более простой способ?
MI.Do('Dim Obj1 As Object');
MI.Do('Dim ch As Symbol');
i:=0;
MI.Do('Fetch First From Table1');
S:=MI.Eval('EOT(Table1)');
While not((S='T') or (S='t')) do begin
Inc(i);
MI.Do('Obj1=Table1.obj');
MI.Do('ch = ObjectInfo(obj1, 2)');
code:=MI.Eval('StyleAttr(ch,1)');
color:=MI.Eval('StyleAttr(ch,2)');
size:=MI.Eval('StyleAttr(ch,3)');
MI.Do(Format('ch = MakeSymbol(%d,%d,%d)',[code+1,color,size]));
MI.Do('Alter Object obj1 Info 2, ch');
MI.Do('update Table1 set obj=obj1 where rowid=Table1.rowid');
MI.Do('Fetch Next From ExcelPS');
S:=MI.Eval('EOT(ExcelPS)');
end; |
|