ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Складывание edit с дополнительными параметрами в формуле
25 сообщений из 36, страница 1 из 2
  1  все
Складывание edit с дополнительными параметрами в формуле
    #40055676
Петр Иванович 26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр Иванович 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, 21:50
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055680
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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, 21:59
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055682
Петр Иванович 26
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Петр Иванович 26
Гость
defecator, а можете дать подсказку как исправить ?
...
Рейтинг: 0 / 0
21.03.2021, 22:21
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055683
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
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:28
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055685
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
YuRock
defecator
пропущено...

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

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

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

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

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

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

После того, как получится вычислить формулу - забейте в текст параметров (я так понимаю, там что-то типа TEdit?) какую-нить фигню типа АБЦД вместо цифр... И готовьтесь к спецэффектам.
...
Рейтинг: 0 / 0
22.03.2021, 00:04
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055701
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
По-моему похоже на трололо.
Код: pascal
1.
-StrToInt(FloatToStr(0.129)* IntToStr(Parametr6.Text) -IntToStr(FloatToStr(0.27)
...
Рейтинг: 0 / 0
22.03.2021, 00:12
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055709
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Не компилится - это компилятору памяти не хватает. Слишком сложная строка кода. А может не хватает прав
...
Рейтинг: 0 / 0
22.03.2021, 02:15
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055714
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asutp2
Участник
и обязательно нужно переустановить windows
...
Рейтинг: 0 / 0
22.03.2021, 05:51
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055722
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
скорее напряжения не хватает в розетке или на подстанции.
...
Рейтинг: 0 / 0
22.03.2021, 07:27
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055727
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Петр Иванович 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, 08:28
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055740
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
L_argo
Участник
Хардкодные вычисления - жесть.
Просто сформируйте текстовую строку 1+5*2-1+(2+4).... и запустите ее в функцию для вычисления. Таковые встречаются в некоторых библиотеках. Н-р Hyperstring.
...
Рейтинг: 0 / 0
22.03.2021, 09:34
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055743
Фотография Dmitry Arefiev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmitry Arefiev
Участник
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, 10:11
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055762
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Dmitry Arefiev
Такое прямо в коробке есть.

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

ты чо! это ж секретный ядерный физик!
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
22.03.2021, 11:24
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055825
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
Я закопаю стюардессу
Код: 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, 12:44
| Ответить | Цитировать | Написать  
Складывание edit с дополнительными параметрами в формуле
    #40055842
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
_Vasilisk_
Я закопаю стюардессу

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


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