Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Складывание edit с дополнительными параметрами в формуле / 25 сообщений из 36, страница 1 из 2
  1  все
21.03.2021, 21:50
    #40055676
Петр Иванович 26
Петр Иванович 26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Добрый вечер! Прошлую тему удалили, а я запутался в своих ошибках. Подскажите пожалуйста, что я делаю не правильно?
Код: pascal
1.
2.
3.
Itogovaya_summa.Text:=((FloatToStr((StrToInt(IntToStr(Parametr1.Text)* StrToInt(FloatToStr(0.63) +(FloatToStr(0.187)*
IntToStr(Parametr2.Text)+IntToStr(FloatToStr(0.718)*IntToStr(Parametr3.Text)+StrToInt(FloatToStr(0.954) * IntToStr(Parametr4.Text)+IntToStr(FloatToStr(0.94)* IntToStr(Parametr5.Text)-StrToInt(FloatToStr(0.129)*
 IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 21:59
    #40055680
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26
Добрый вечер! Прошлую тему удалили, а я запутался в своих ошибках. Подскажите пожалуйста, что я делаю не правильно?
Код: pascal
1.
2.
3.
Itogovaya_summa.Text:=((FloatToStr((StrToInt(IntToStr(Parametr1.Text)* StrToInt(FloatToStr(0.63) +(FloatToStr(0.187)*
IntToStr(Parametr2.Text)+IntToStr(FloatToStr(0.718)*IntToStr(Parametr3.Text)+StrToInt(FloatToStr(0.954) * IntToStr(Parametr4.Text)+IntToStr(FloatToStr(0.94)* IntToStr(Parametr5.Text)-StrToInt(FloatToStr(0.129)*
 IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)


тут всё неправильно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 22:21
    #40055682
Петр Иванович 26
Петр Иванович 26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
defecator, а можете дать подсказку как исправить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 22:28
    #40055683
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
defecator
Петр Иванович 26
Добрый вечер! Прошлую тему удалили, а я запутался в своих ошибках. Подскажите пожалуйста, что я делаю не правильно?
Код: pascal
1.
2.
3.
Itogovaya_summa.Text:=((FloatToStr((StrToInt(IntToStr(Parametr1.Text)* StrToInt(FloatToStr(0.63) +(FloatToStr(0.187)*
IntToStr(Parametr2.Text)+IntToStr(FloatToStr(0.718)*IntToStr(Parametr3.Text)+StrToInt(FloatToStr(0.954) * IntToStr(Parametr4.Text)+IntToStr(FloatToStr(0.94)* IntToStr(Parametr5.Text)-StrToInt(FloatToStr(0.129)*
 IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)



тут всё неправильно
А я ошибок не вижу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 22:41
    #40055685
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
YuRock
defecator
пропущено...

тут всё неправильно
А я ошибок не вижу

остаётся только тебе посочувствовать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 22:55
    #40055687
asutp2
asutp2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
YuRock,

посмотри например на
IntToStr(Parametr6.Text)
IntToStr(FloatToStr(0.27)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:03
    #40055688
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
asutp2
YuRock,

посмотри например на
IntToStr(Parametr6.Text)
IntToStr(FloatToStr(0.27)
Да ну это описки просто, но вопрос-то задан понятно. По ошибкам в логике, а их не видно :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:04
    #40055689
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
defecator
YuRock
пропущено...
А я ошибок не вижу

остаётся только тебе посочувствовать
У меня ошибок нет, что мне сочувствовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:34
    #40055694
Петр Иванович 26
Петр Иванович 26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
и все такие в чем ошибка ?
Ps: Программа пишется для разных устройств поэтому вместо Caption идет свойство Text!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:45
    #40055695
YuRock
YuRock
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26
и все такие в чем ошибка ?
Ps: Программа пишется для разных устройств поэтому вместо Caption идет свойство Text!
А с чего ты взял, что есть ошибка?
Ты на листочке проверил результат? Может, он совпадает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:50
    #40055696
Петр Иванович 26
Петр Иванович 26
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
YuRock, он даже не запускает программу, компилятор ругается на ошибки!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:53
    #40055697
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26,

Ну хотя бы вместо того, чтобы лепить в одну строку IntToStr, FloatToStr, StrToInt и прочее - разложите по переменным с нужными (ожидаемыми) типами. Потом вычислите свою формулу и запихайте в XXX.Text одним преобразованием.

P.S. Caption и Text - это стринги. На вычисления то, в чем (где) будет отображаться результат - не влияет.
P.P.S. Чего вы хотите добиться выражением FloatToStr(XXXX) * IntToStr(YYYYY) - мне вот не совсем понятно. Умножить строку на строку?-) Может надо бы 0.1234 * StrToInt(Parameter.Text) на худой конец? Вы явно напутали с преобразованием строк в числа и наоборот.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2021, 23:57
    #40055698
softwarer
softwarer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26
Добрый вечер! Прошлую тему удалили, а я запутался в своих ошибках. Подскажите пожалуйста, что я делаю не правильно?

В общем-то, всё. Самое главное - без необходимости загоняешь в одну чрезмерно сложную (для тебя) строку всё подряд вместо того, чтобы разбить на отдельные простые и понятные операции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 00:04
    #40055700
DarkMaster
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26,

После того, как получится вычислить формулу - забейте в текст параметров (я так понимаю, там что-то типа TEdit?) какую-нить фигню типа АБЦД вместо цифр... И готовьтесь к спецэффектам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 00:12
    #40055701
s62
s62
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
По-моему похоже на трололо.
Код: pascal
1.
-StrToInt(FloatToStr(0.129)* IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 02:15
    #40055709
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Не компилится - это компилятору памяти не хватает. Слишком сложная строка кода. А может не хватает прав
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 05:51
    #40055714
asutp2
asutp2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
и обязательно нужно переустановить windows
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 07:27
    #40055722
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
скорее напряжения не хватает в розетке или на подстанции.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 08:28
    #40055727
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Петр Иванович 26
Добрый вечер! Прошлую тему удалили, а я запутался в своих ошибках. Подскажите пожалуйста, что я делаю не правильно?

Код: pascal
1.
2.
3.
Itogovaya_summa.Text:=((FloatToStr((StrToInt(IntToStr(Parametr1.Text)* StrToInt(FloatToStr(0.63) +(FloatToStr(0.187)*
IntToStr(Parametr2.Text)+IntToStr(FloatToStr(0.718)*IntToStr(Parametr3.Text)+StrToInt(FloatToStr(0.954) * IntToStr(Parametr4.Text)+IntToStr(FloatToStr(0.94)* IntToStr(Parametr5.Text)-StrToInt(FloatToStr(0.129)*
 IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)


Куча ошибок, и вот одна из них.
Вы УМНОЖАЕТЕ string на integer

Вместо IntToStr(Parametr1.Text) напишите так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
var P1,P2: integer;
    Itog: double;
begin
  P1 := StrToInt(Parametr1.Text);
  P2 := StrToIntStr(Parametr2.Text);
и т.д. 
  Itog := P1 * P2 / P3 +P4 - P5 ......
  Itogovaya_summa.Text := FloatToStr(Itog);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 09:34
    #40055740
L_argo
L_argo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Хардкодные вычисления - жесть.
Просто сформируйте текстовую строку 1+5*2-1+(2+4).... и запустите ее в функцию для вычисления. Таковые встречаются в некоторых библиотеках. Н-р Hyperstring.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 10:11
    #40055743
Dmitry Arefiev
Dmitry Arefiev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
L_argo
Таковые встречаются в некоторых библиотеках. Н-р Hyperstring.

Такое прямо в коробке есть.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var
  LExp: TBindingExpression;
....
  LExp := TBindings.CreateExpression([], Edit1.Text);
  try
    Edit2.Text := FloatToStr(LExp.Evaluate.GetValue.AsExtended);
  finally
    LExp.Free;
  end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 11:02
    #40055762
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Dmitry Arefiev
Такое прямо в коробке есть.

Студенту не до коробок
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 11:24
    #40055773
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
22.03.2021 11:02, DimaBr пишет:
> Студенту не до коробок

ты чо! это ж секретный ядерный физик!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 12:44
    #40055825
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
Я закопаю стюардессу
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
Itogovaya_summa.Text := FloatToStr(
  0.63 * IntToStr(Parametr1.Text) +
  0.187 * IntToStr(Parametr2.Text) +
  0.718 * IntToStr(Parametr3.Text) +
  0.954 * IntToStr(Parametr4.Text) +
  0.94 * IntToStr(Parametr5.Text) - 
  0.129 * IntToStr(Parametr6.Text) -
  0.27
);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.03.2021, 13:24
    #40055842
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Складывание edit с дополнительными параметрами в формуле
_Vasilisk_
Я закопаю стюардессу

Весь смысл самопознания поломал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Складывание edit с дополнительными параметрами в формуле / 25 сообщений из 36, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]