Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Голосование за лучший ответ
Андванс Чесс
(31882)
7 лет назад
Сделай так, чтобы порядок материалов в твоём списке соответствовал нумерации Edit'ов по цене за квадратный метр, а Edit'ам с габаритами присвой больший номер или имена типа EditWidth и EditHeight, и используй
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
Естественно, бремя реализации проверки вводимых данных, включая соответствие вводимого разделителя с DecimalSeparator - на тебе.
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
Естественно, бремя реализации проверки вводимых данных, включая соответствие вводимого разделителя с DecimalSeparator - на тебе.
проекты
(1094)
7 лет назад
Сделай так, чтобы порядок материалов в твоём списке соответствовал нумерации Edit'ов по цене за квадратный метр, а Edit'ам с габаритами присвой больший номер или имена типа EditWidth и EditHeight, и используй
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
Естественно, бремя реализации проверки вводимых данных, включая соответствие вводимого разделителя с DecimalSeparator - на тебе.
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
Естественно, бремя реализации проверки вводимых данных, включая соответствие вводимого разделителя с DecimalSeparator - на тебе.
Андванс ЧессПросветленный (31882)
7 лет назад
Ещё хоть как-то объяснимо, когда какой-то новичок дублирует чужой ответ. Но когда это делает человек со статусом "Оракул" - это по меньше мере странно.
салават файзуллин
(354)
7 лет назад
Сделай так, чтобы порядок материалов в твоём списке соответствовал нумерации Edit'ов по цене за квадратный метр, а Edit'ам с габаритами присвой больший номер или имена типа EditWidth и EditHeight, и используй
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
MessageBox(0, PChar(FloatToStr(StrToFloat(TEdit(FindComponent('Edit'+ IntToStr(ComboBox.ItemIdex+1))).Text)*StrToFloat(EditWidth.Text)*StrToFloat(EditHeight.Text))), 'Вывод результата', MB_OK);
Похожие вопросы