Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.01.2010, 18:26   #1
Jene4ka
Пользователь
 
Регистрация: 13.12.2008
Сообщений: 75
По умолчанию Значение Label

Здравствуйте!
Прошу о помощи,всё уже перепробовала.
Пишу программу Delphi+Access.
Мне для реализации функции необходимо проверить,пустое ли значение label.если не пустое,то его значение прибавить к значению переменной s.

if label8.caption<>' ' then
s:=s+strtofloat(label8.caption);

Вроде бы пустяк, но значение label пустое, а все равно пытается перевести strtofloat и выдает ошибку
Jene4ka вне форума Ответить с цитированием
Старый 13.01.2010, 18:30   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

вы сравниваете с пробелом
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 13.01.2010, 18:31   #3
mish@
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 78
По умолчанию

Код:
var
s: integer;
begin
if label1.Caption='' then
label1.Caption:=inttostr(s);
mish@ вне форума Ответить с цитированием
Старый 13.01.2010, 18:31   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Пустые строки нужно сравнивать так:
Код:
If label8.caption<>'' Then ...
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 13.01.2010, 18:34   #5
Jene4ka
Пользователь
 
Регистрация: 13.12.2008
Сообщений: 75
По умолчанию

Я олень))
Спасибо большое за помощь,всё получилось)))!!
Jene4ka вне форума Ответить с цитированием
Старый 13.01.2010, 19:00   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Код:
if Trim(label8.caption)>'' then
s:=s+strtofloat(label8.caption);
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
значение Label в ячейки в числовом формате segail Microsoft Office Excel 8 14.08.2009 21:19
При расположении Label на компонентах, место под Label, не реагирует на событие onClick. NavigatorNeba Компоненты Delphi 3 15.11.2008 19:56
Label artemavd Общие вопросы Delphi 2 11.07.2008 11:15
Label Kocapb Общие вопросы C/C++ 2 17.01.2008 01:50
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23