Текущий архив: 2002.04.08;
Скачать: CL | DM;
Вниз
Опять - DeсimalSeparator??? Найти похожие ветки
← →
Alx2 © (2002-03-28 08:05) [31]>Юрий Зотов
>ClassParent=TForm лучше проверять is TForm,
>иначе проверка может и не сработать.
:) Как раз в случае <...>.ClassParent is TForm проверка не может работать: ошибка компиляции.
>как отловить создание формы не из нее самой?
>Решить можно, но это лишняя головная боль и лишний код.
Теперь понял, о чем Вы. Согласен.
>Anatoly Podgoretsky © (27.03.02 20:04)
>Alx2 © (27.03.02 11:57)
>Затем, что необязательно . или ,
Анатолий, если я правильно понял, это ответ на мое
"if Key in [",",".", DecimalSeparator - зачем?!] then Key := DecimalSeparator".
То есть, получается (что мне странно), Вы настаиваете на таком коде:
if Key in [",",".", DecimalSeparator] then Key:=DecimalSeparator;
Но это ведь эквивалентно следующему:
if Key in [",","."] then Key:=DecimalSeparator;
Если такое утверждение Вас не убеждает, то попробую расписать (хотя, мне кажется, что я Вас неправильно понял, ибо то, что пойдет ниже - само собой разумеещееся)
Итак,
if Key in [",",".",DecimalSeparator] then Key:=DecimalSeparator;
можно записать в виде:
if Key = "." then Key := DecimalSpearator else
if Key = "," then Key := DecimalSpearator else
if Key = DecimalSeparator then Key := DecimalSpearator;
Вопрос: а последняя строчка нужна ли? Ненужна. Посему
эквивалентная запись для "if Key in [",",".", DecimalSeparator] then Key:=DecimalSeparator" будет
if Key = "." then Key := DecimalSpearator else
if Key = "," then Key := DecimalSpearator;
или
if Key in [",","."] then Key:=DecimalSeparator;
Примечание: конструкцию с "Else" использовал для минимизации количества сравнений. Так как, при отсутствии else и Key="." после положительного результата теста на Key="." выполнится тест на Key=",", что уже не имеет смысла.
>Alx2 © (27.03.02 12:30)
>Неверно, может и другое
Я писал: "А запятую туда вставил, потому что с клавиши "." может прийти либо "." либо ",""
Спасибо за поправку. Действительно, категорично сказал.
Конечно, может прийти нечто другое :)). А оно нам надо?
Страницы: 1 вся ветка
Текущий архив: 2002.04.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
