ArrayFind - HiAsm

Форумы Ошибки в компонентахArrayFind ← Ctrl1Ctrl →

Этот топик читают: Гость

Разработчик

Ответов: 4698

Рейтинг: 426

#1: 2010-08-17 13:44:25 ЛС | профиль | цитата

делал было новое решение для задачи 2 из HiAsmContest #3, все верно высчитывало уже хотел было выкладывать решение в личку, но вовремя себя остановил: надо было протестить на многих примерах, а не на одном, как оказалось - не зря, обнаружил ошибку, только вот ее причины никак не могу понять, ошибку вызывает строчка:

#pas
  if not _prop_CaseSensitive  and (Length(S1) <> 0) then
    CharLower(S1);

Решение проблемы мне неизвестно, но у меня вылетает то неизвестное исключение по адресу ХХХХ, то runtimeerror 216 at XXXX, вот пример схемы, искать пытаемся 0, поэтому мне думается в этом проблема:
code_20048.txt

карма: 10

Мой сайт, Мои рассказы

файлы: 1 code_20048.txt [531B] [237]

Ответов: 2478

Рейтинг: 698

#2: 2010-08-17 13:52:54 ЛС | профиль | цитата

Assasin, у тебя в строковом массиве ArrayType = String ищет Real.

карма: 11

Разработчик

Ответов: 4698

Рейтинг: 426

#3: 2010-08-17 13:55:49 ЛС | профиль | цитата

sla8a писал(а):

Assasin, у тебя в строковом массиве ArrayType = String ищет Real.

Ты так уверен? Это о чем нибудь говорит?

#pas
  ...
  idx := ReadInteger(_Data, _data_Index, _prop_Index);
  dt := ReadData(_Data, _data_Value, @_prop_Value);  
  ...
  s := ToString(dt); //тут
  S1 := PChar(s);
  ...

карма: 10

Мой сайт, Мои рассказы

Разработчик

Ответов: 26324

Рейтинг: 2147

#4: 2010-08-17 14:11:33 ЛС | профиль | цитата

Assasin, сделай вот так


  s := ToString(dt) + #0;

карма: 22

Разработчик

Ответов: 4698

Рейтинг: 426

#5: 2010-08-17 14:13:24 ЛС | профиль | цитата

nesco писал(а):

Assasin, сделай вот так

...И это будет только у меня, тогда на svn надо, работает

карма: 10

Мой сайт, Мои рассказы

Разработчик

Ответов: 26324

Рейтинг: 2147

#6: 2010-08-17 14:19:08 ЛС | профиль | цитата

Assasin писал(а):

тогда на svn надо

Надо, будет
------------ Дoбавленo в 14.19:
Исправлено

карма: 22

Форумы Ошибки в компонентахArrayFind ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)