Вверх ↑
Этот топик читают: Гость
Ответов: 60
Рейтинг: 0
#1: 2020-09-15 09:30:44 ЛС | профиль | цитата
Хотел узнать, 0,00001 это минимальное возможное число близкое к 0, которое можно использовать в операнде элемента условия, а 10000000000000000 это максимальное число?
Пример
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(Edit,5544078,301,161)
{
Left=15
Top=30
link(onChange,16509330:doConvert,[])
}
Add(Label,16478674,497,420)
{
Left=175
Top=80
Width=42
Height=17
Caption=""
link(Text,1030299:Value,[(503,345)(671,345)])
}
Add(Button,3087966,224,245)
{
Left=30
Top=75
link(onClick,4528960:doEvent1,[(314,251)(314,335)])
}
Add(If_else,8103008,364,329)
{
Type=2
Op2=Real(0.00001)
link(onTrue,8372826:doValue,[(482,335)(482,244)])
link(onFalse,2032094:doValue,[(478,342)(478,363)])
link(Op1,16509330:Var,[(370,278)(363,278)])
AddHint(35,-48,54,13,Op2)
}
Add(Label,12489922,434,161)
{
Left=85
Top=30
Width=46
Height=17
Caption="-0,00001"
}
Add(Memory,8372826,567,238)
{
Point(Data)
link(onData,14195938:doWork2,[])
link(Data,4568548:Value,[])
}
Add(Memory,4568548,567,189)
{
Default=String(больше)
}
Add(Memory,1030299,665,238)
{
}
Add(Hub,4528960,329,329)
{
link(onEvent1,8103008:doCompare,[])
link(onEvent2,16478674:doText,[(357,342)(357,426)])
}
Add(Memory,2032094,560,357)
{
Point(Data)
link(onData,14195938:doWork3,[(641,363)])
link(Data,2290153:Value,[])
}
Add(Memory,2290153,560,308)
{
Default=String(меньше)
}
Add(HubEx,14195938,637,238)
{
link(onEvent,1030299:doValue,[])
}
Add(ConvertorEx,16509330,357,161)
{
Mode=10
}

Если использовать 0,000001 то компилятор не хочет собирать программу
http://i.mcgl.ru/RzQyY6g5UE

Редактировалось 1 раз(а), последний 2020-09-15 09:48:41
карма: 1

0
Ответов: 8921
Рейтинг: 823
#2: 2020-09-15 09:59:33 ЛС | профиль | цитата
Gik, нет, и минимальное и максимальное числа имеют более 300 нолей, в Edit не уместятся
МинМакс


Add(MainForm,11111324,259,70)
{
}
Add(Edit,5544078,308,70)
{
Left=15
Top=20
Width=135
Text="0.000000000001"
DataType=4
}
Add(Label,16478674,420,119)
{
Left=160
Top=15
Width=72
Height=32
Caption=""
AutoSize=1
Alignment=2
}
Add(Button,3087966,259,119)
{
Left=20
Top=45
link(onClick,7585040:doCompare,[])
}
Add(Edit,12072724,357,70)
{
Left=240
Top=20
Width=140
Text="0.0000000000000001"
DataType=4
}
Add(If_else,7585040,308,119)
{
Type=2
link(onTrue,8178225:doData,[])
link(onFalse,8259545:doData,[])
link(Op1,5544078:Text,[])
link(Op2,12072724:Text,[(321,110)(363,110)])
}
Add(DoData,8178225,364,119)
{
Data=String(Больше)
link(onEventData,12204087:doWork2,[])
}
Add(DoData,8259545,357,126)
{
Data=String(Меньше или равно)
link(onEventData,12204087:doWork3,[(410,132)])
}
Add(HubEx,12204087,406,119)
{
link(onEvent,16478674:doText,[])
}

карма: 19

0
Ответов: 60
Рейтинг: 0
#3: 2020-09-15 10:10:48 ЛС | профиль | цитата
Значит только с edit?
И если число не вводится, все равно только edit использовать?
карма: 1

0
Ответов: 8921
Рейтинг: 823
#4: 2020-09-15 12:59:25 ЛС | профиль | цитата
Gik, Edit имеет свойство типа "Текст", "Целое число" Десятичное число с запятой"... В вашем примере использовался тип "Текст" установленный по умолчанию.
Элемент If_Else сравнивает ЛЮБЫЕ типы данных по типу первого операнда. Он в вашем примере был "Текст" и данные сравнивались как СИМВОЛЫ текста.
Подавать данные можно как и откуда захочется, но всегда нужно помнить о типах данных, чтобы первый операнд был таким, какие вы полагаете сравнивать.
карма: 19

0
Ответов: 60
Рейтинг: 0
#5: 2020-09-15 13:17:09 ЛС | профиль | цитата
Это понятно, просто если в самом элементе if else один операнд ввести меньше 0,00001, компилятор не компилирует.
карма: 1

0
Ответов: 4628
Рейтинг: 749
#6: 2020-09-15 13:40:08 ЛС | профиль | цитата
Это в модифицированном пакете для нового FPC не хочет. Разбираюсь.
карма: 26

0
Ответов: 60
Рейтинг: 0
#7: 2020-09-15 13:45:20 ЛС | профиль | цитата
Ну да наверно с модифицированным не хочет.

Редактировалось 1 раз(а), последний 2020-09-15 13:46:52
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2020-09-15 16:25:59 ЛС | профиль | цитата
...

Редактировалось 3 раз(а), последний 2020-09-15 17:08:11
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)