Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Chart, синтаксис и т.д

Salik © (2004-06-25 12:02:00)
Добрый день! Суть проблемы в следующем: Нужно чтоб в 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; ->работает четко. Всем спасибо!

Salik (2004-06-25 13:53:00) [1]
Да.а.а.а... Действительно при запуске Едит был пуст
Попробывал Edit.Text присвоить число, запустить-> работает.
Спасибо!!!

Ega23 (2004-06-25 13:46:00) [2]
Судя по полному тексту эксепшена, у тебя в каком-то из Edit-ов пустая строка стоит вместо числа.

Sandman25 (2004-06-25 13:44:00) [3]
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 = ''; // пустая строка
Значит надо проверять на это значение.

Salik (2004-06-25 13:39:00) [4]
Извените, что пропал, были проблемы с сетью
>>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;

evvcom (2004-06-25 12:41:00) [5]

> 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

Sandman25 (2004-06-25 12:06:00) [6]
Что перед "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:00) [7]
Что вводишь в Edit? Может быть трабла с DecimalSeparator.

Ega23 (2004-06-25 12:05:00) [8]
Salik © (25.06.04 12:02)

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »