Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Excel   Найти похожие ветки 

 
Igor_thief ©   (2004-07-30 19:36) [0]

Почему если сделать так то работает:
[code]var Irange: ExcelXp.ExcelRange;
..
 IDispatch(IRange) := OleVariant(pSheet.UsedRange);
..[/code]
а когда делаешь так, то Left side cannot be assigned
[code]TSomeData = class(TObject)
   private
     FpSheet: OleVariant;
     FIRange: ExcelXp.ExcelRange;
     FRezRange: ExcelXp.ExcelRange;
   public
     property pSheet: OleVariant read FpSheet write FpSheet;
     property IRange: ExcelXP.ExcelRange read FIRange write FIRange;
     property RezRange: ExcelXP.ExcelRange read FRezRange write FRezRange;
 end; // type
...
IDispatch(TempPr.IRange) := OleVariant(pSheet.UsedRange);
...[/code]
Я уже просто замучался искать ответ!!! Хелп ми!


 
olookin ©   (2004-07-30 21:09) [1]

А что такое TempPr?


 
Igor_thief ©   (2004-07-31 12:16) [2]

TempPr это экземпляр класса TSOmeData


 
Piter ©   (2004-07-31 13:34) [3]

потому что TempPr.IRange это свойство (property). А свойство нельзя приводить к чему-нибудь. Имхо, так.

Я вообще слабо понимаю, что здесь написано, но почему бы не писать просто:
TempPr.IRange := OleVariant(pSheet.UsedRange);

или если у тебя все равно никаких методов чтения и записи не используется, то удалить
property IRange: ExcelXP.ExcelRange read FIRange write FIRange;
и перенести объявление FIRange из private в public под именем IRange


 
Igor_thief ©   (2004-08-03 10:05) [4]

Piter ©   (31.07.04 13:34) [3]
>>Я вообще слабо понимаю, что здесь написано, но почему бы не писать просто:
TempPr.IRange := OleVariant(pSheet.UsedRange);

А ты попробуй;о)

Все равно спасибо! Я нашол другой способ решения своей задачи.



Страницы: 1 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
14-1091768274
WondeRu
2004-08-06 08:57
2004.08.22
Кто использует в своих программах HASP ы?


3-1090972330
AleKo
2004-07-28 03:52
2004.08.22
Проверка на вхождение в операторе WHERE IN


14-1091430776
Иксик
2004-08-02 11:12
2004.08.22
Урррра!!! Я снова на любимом форуме!


1-1091721731
Луарвик
2004-08-05 20:02
2004.08.22
TStrings: как удалить пустые строки?


1-1091773540
MaXsIm
2004-08-06 10:25
2004.08.22
Добавить в начало текстового файла