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

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

Поиск в Excel. :( [Delphi, Windows]

eugene32 ©   (2005-04-07 20:29:00) 

При поисек в Excel'e, если Excel ничего не находит ф-я Find возвращает $00000000. Никак не получается проверить нащёл что-нибудь Excel или нет :(
Прошу, помогите :(

Как мне проверить ThisCell? if Assigned(ThisCell) - не пашет.

function TExcel.FindStringNo(ColNo: Integer): Integer;
const
 xlWhole = $00000001;
var
 ThisCell: OleVariant;
 s: String;
 SearchString: String;
begin
 SearchString := '240';
 Excel.Sheets[1].Columns[ColNo].Select;
 ThisCell := Excel.Sheets[1].Columns[ColNo].Find(What:=SearchString, LookAt:=xlWhole);

 if ThisCell then //НЕ РАБОТАЕТ!!!!
 begin
   s := ThisCell.Address[False, False];  // 'B939' - format.
   Result := StrToInt(Trim(StripNonNumeric(S)));
 end
 else
  Result := 0;

---

Юзверь45   (2005-04-12 19:59:00) [1]

Удалено модератором

---

eugene32   (2005-04-12 19:10:00) [2]

Проблемма решена :)
if not VarIsEmpty(ThisCell) then
begin
 ...
end;

---

eugene32   (2005-04-12 18:49:00) [3]

Почему не работает?
if Assigned(ThisCell) then
begin
 ...
end;

---

eugene32   (2005-04-10 10:42:00) [4]

Пробовал, мне не помогло.
Если можете помочь кодом - буду рад :)

---

AloneAli   (2005-04-08 09:39:00) [5]

А это не пробовал смотреть?

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=272

---

Наверх