Скачать: CL | DM;

Chart, синтаксис и т.д   Найти похожие ветки 

← →
Salik ©   (2004-06-25 12:02) [0]

Добрый день! Суть проблемы в следующем:  Нужно чтоб в Charte AxisY.Maximum приобретал значение равное значению Edita
пишу следующее:
Chart1.LeftAxis.Maximum:=StrToFloat(TEdit(Form1.FindComponent("Edit"+IntToStr(1))).Text);
Maximum -> типа double;
Компиляция проходит нормально, при запуске программы ошибка->is not a valid floating point value;
Может не правильно использую функцию преобразования? Если присвоить конкретное значение:Chart1.LeftAxis.Maximum:=127; ->работает четко. Всем спасибо!

---

← →
Ega23 ©   (2004-06-25 12:05) [1]

Salik ©   (25.06.04 12:02)

А чему у тебя равен Edit1.Text?

---

← →
Sandman25 ©   (2004-06-25 12:06) [2]

Что перед "is not a valid floating point value"?
TEdit(Form1.FindComponent("Edit"+IntToStr(1))).Text
скорее всего эквивалентно Form1.Edit1.Text
Если Chart1 находится на Form1, то Form1.Edit1 замените на Edit1

---

← →
TUser ©   (2004-06-25 12:06) [3]

Что вводишь в Edit? Может быть трабла с DecimalSeparator.

---

← →
evvcom ©   (2004-06-25 12:41) [4]

> Form1.FindComponent("Edit"+IntToStr(1)).Text

Если компонент Edit1 брошен на Form1 в design-time, то зачем так извращаться? Пиши просто Form1.Edit1.Text или еще см.

> Если Chart1 находится на Form1, то Form1.Edit1 замените
> на Edit1


> Что вводишь в Edit? Может быть

А может быть он туда еще вообще ничего не вводит. В тех местах, где возможна ошибка в частности из-за неверных действий пользователя, применяют защищенные блоки try...except...end или try...finally...end

---

← →
Salik ©   (2004-06-25 13:39) [5]

Извените, что пропал, были проблемы с сетью
>>Ega23 А чему у тебя равен Edit1.Text?
Идет генерация числа от 1-1000:integer, в Timere, число каждые 5 сек выводится на Edit;

>>Sandman25 ©Что перед "is not a valid floating point value"?

Project DDEPR.exe raised exception class EConvertError with message """ is not a valid floating point value". Process stopped. Use Step or Run to continue.

>>TEdit(Form1.FindComponent("Edit"+IntToStr(1))).Text
скорее всего эквивалентно Form1.Edit1.Text

-Да полностью эквивалентно.Просто TEdit(Form1.FindComponent("Edit"+IntToStr(i))).Text - крутится в цикле;

-Chart на Form2;

---

← →
Sandman25 ©   (2004-06-25 13:44) [6]

Project DDEPR.exe raised exception class EConvertError with message """ is not a valid floating point value". Process stopped. Use Step or Run to continue.

Значит Edit1.Text = ""; // пустая строка
Значит надо проверять на это значение.

---

← →
Ega23 ©   (2004-06-25 13:46) [7]

Судя по полному тексту эксепшена, у тебя в каком-то из Edit-ов пустая строка стоит вместо числа.

---

← →
Salik ©   (2004-06-25 13:53) [8]

Да.а.а.а... Действительно при запуске Едит был пуст
Попробывал Edit.Text присвоить число, запустить-> работает.
Спасибо!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.035 c