Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.034 c
14-1087923188
ИМХО
2004-06-22 20:53
2004.07.11
OCR-компонент


14-1087984728
Adder
2004-06-23 13:58
2004.07.11
%))


3-1086951943
iat
2004-06-11 15:05
2004.07.11
Запрос для MySQL отрабатывает некорректно. Кодировка или глюк?


14-1087447860
Del_programmer
2004-06-17 08:51
2004.07.11
ХАККЕРЫ МЫ ВАС УЖЕ ВЫЧИСЛЯЕМ:)))


3-1087391027
Dimich1978
2004-06-16 17:03
2004.07.11
Построить дерево





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский