VPF::Превышение диапазона в WordDocument1.Range(a,b)

Genius3d

Дата 10.6.2007, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 7.6.2007

Репутация: нет
Всего: нет

Нашел на форуме этот алгоритм, но у него идет превыщение диапазона для Range, если не находит слово в файле,

Код


j:=0;
ilengy:=Length(WordDocument1.Range.Text);
 repeat
               a:=j;
                b:=j+Length(st);
                if WordDocument1.Range(a,b).Text=st then
                Nashli:=true;
               inc(j);
                until (j>=ilengy-Length(st)) or Nashli;

падает на строчке
if WordDocument1.Range(a,b).Text=st then

даже понятно почему падает - из -за границы b, она у нас ускакивает непонятно куда.

Не могу понять почему идет превышение, ведь until у нас ограничевает это дело...

Leos239

Дата 11.6.2007, 22:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 26.11.2006

Репутация: нет
Всего: нет

Не проверял конкретно этот код, но вроде в Word'e там все массивы и.т.д. начинаются с 1, а не с 0.
Возможно ошибка при обращении при a :=j (=0), т.е при первом обращении к WordDocument1.Range имеем:
if WordDocument1.Range(0{!!!!!!!!}, b).Text = st then

Попробуй поставить вначале j:=1;

P.S. вообще, если с нуля начинать отсчёт, то заканчивать надо при Length - 1

Это сообщение отредактировал(а) Leos239 - 11.6.2007, 22:41

Genius3d

Дата 13.6.2007, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 7.6.2007

Репутация: нет
Всего: нет

Все решил проблему. КОроче выбираю весь текст в ворде в wideString а потом уже по ней иду. так быстрее работает даже

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »