Нет события в ArrayFind при пустом Array

Вверх ↑

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

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

Ответов: 758

Рейтинг: 112

#1: 2010-03-31 13:46:14 ЛС | профиль | цитата

Нет события в ArrayFind при пустом Array
Это так надо или всеже ошибка

code_17613.txt

карма: 1

файлы: 1

code_17613.txt [377B] [139]

Ответов: 1328

Рейтинг: 69

#2: 2010-03-31 13:54:45 ЛС | профиль | цитата

а если только пустая строка - Fpc норм (-1), а delphi runtime err

Add(MainForm,2953706,252,133)
{
}
Add(ArrayFind,13447225,343,252)
{
 link(onFind,1317434:doMessage,[])
 link(Array,374441:Array,[])
 link(Value,4845928:Value,[])
}
Add(Message,1317434,399,252)
{
}
Add(Button,8458144,266,252)
{
 Left=40
 Top=40
 Data=Integer(0)
 link(onClick,13447225:doFind,[])
}
Add(Memory,4845928,357,203)
{
 Default=Integer(10)
}
Add(StrList,374441,329,140)
{
 Strings=#0:|0:|
}

карма: 2

Администрация

Ответов: 15295

Рейтинг: 1519

#3: 2010-03-31 14:04:52 ЛС | профиль | цитата

miver писал(а):

Нет события в ArrayFind при пустом Array

и не должно быть.

Konst писал(а):

а если только пустая строка - Fpc норм (-1), а delphi runtime err

ошибка в строке 69


#pas
CharLower(S1);  // <--- не переваривает пустых строк

карма: 27

https://hiasm.com

Разработчик

Ответов: 26306

Рейтинг: 2146

#4: 2010-03-31 14:25:50 ЛС | профиль | цитата

Dilma писал(а):

ошибка в строке 69

Не только, но и в 75, это именно та, которая вызывала сбой у Konst

Исправлено

карма: 22