VPF::Ошибка при копировании символа из строки

Pcrepair

Дата 14.7.2012, 08:40 (ссылка)

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

Загрузка ...

Бывалый

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

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

Добрый день. Есть код

Код


function TForm1.CompareWords(var W1,W2: string; var CompareLevel:integer):boolean;
var
NumSymWord1,NumSymWord2,Divide,i:integer;
s1,s2: char;
begin
  NumSymWord1 := Length(W1);
  NumSymWord2 :=0;
(*============ ЦИКЛ =============================*)
        for i := 1 to Length(W1) do
         begin
           s1:=W1[1];
           s2:=W2[1];  (*если ПЕРЕМ=пусто то ошибка, отладчик указывает на эту строку*)
           if s1=s2 then
           NumSymWord2 := (NumSymWord2+1);
           delete(W1, 1,1); (*удаляем уже обработанный символ*)
           delete(W2, 1,1);
         end;
(*===============================================*)
         if NumSymWord1 > 0 then
          begin
           Divide := ((NumSymWord2*100)div NumSymWord1);
          end;
      if Divide > CompareLevel then
      CompareWords := TRUE;
end;

Функция проверки соответсвия двух слов посимвольно, с выводом результата ДА или НЕТ. и с порогом определения
Вопрос: почему когда в s2:=W2[1]; нет символов(удалены в передыдущих циклах) выскакивает ошибка? при попытке присвоения

символьной переменной NIL? где тут ошибка?

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

bems

Дата 14.7.2012, 09:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

обращение к несуществующему символу это ошибка, еще до попытки присваивания результата обращения строковой переменной. Иди в цикле до длины более короткой строки, и если после цикла одна из строк осталась непустой, то считай оставшиеся символы отличиями

--------------------

Обижено школьников: 8

Rennigth

Дата 14.7.2012, 09:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Дублировать не буду, goto Sources

--------------------

(* Honesta mors turpi vita potior *)

Pcrepair

Дата 14.7.2012, 19:35 (ссылка)

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

Загрузка ...

Бывалый

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

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

всем спасибо за ценные разъяснения

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

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