| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с переменной [D7, WinXP]

Страницы:   < 1 2 >

Alexey_T-O ©   (2005-08-04 14:00:00) 

Код:
var
 x:variant;
 rez:array [1..100,1..2] of variant;
 i:integer;
 p:variant;
begin
 x:=CreateOleObject('Excel.Application');
 x.workbooks.open(ExtractFilePath(ParamStr(0)) +'Test.xls');
 x.worksheets[1].Select;
 for i:=1 to 100 do
 begin
  rez[i,1]:=x.worksheets[1].Cells[i,1];
  rez[i,2]:=x.worksheets[1].Cells[i,5];
 end;

 x.quit;
 x:=Unassigned;

 p:='-1.00  (Glims)';  <<< Как можно отделить -1 от (Glims)?
 i:=1;
 for i:=1 to 100 do
 If rez[i,1]=p then showmessage('OK');

Почему выскакивает ошибка "Invalid variant operations" ? Ведь в ячейках EXCEL'я лежит как текст так и цифры.
P.S.За ранее спасибо.

---

Alexey_T-O   (2005-08-04 14:46:00) [21]

>rez:array [1..100,1..2] of Olevariant

Все равно не работает. Также ругается.

---

Alexey_T-O   (2005-08-04 14:25:00) [22]

>> p:='-1.00  (Glims)';  <<< Как можно отделить -1 от (Glims)?
>что значит "отделить" ? кастрировать что ли ?)

Да, имеется в виду как создать поиск в переменной где он будет брать значения до пробела или допустим после него?
P.S. Даже не могу выразить свою благодарность. Мучаюсь 2 недели с OLEvariant.

---

Digitman   (2005-08-04 14:03:00) [23]

rez:array [1..100,1..2] of Olevariant

!!


> p:='-1.00  (Glims)';  <<< Как можно отделить -1 от (Glims)?


что значит "отделить" ? кастрировать что ли ?)

---

Страницы:   < 1 2 >

Наверх