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

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

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2011, 16:57   #1
Luxoff
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 13
По умолчанию Калькулятор в Lazarus

В качестве самообучения решил заделать калькулятор =)

При компиляции выдает ошибку ссылаясь на эту строку



( If Label1.Caption:='+' then Edit1.Text:=FloatToStr(V1+StrToFloa t(Edit1.Text)); )

Подскажите причину пожалуйста =)
Luxoff вне форума Ответить с цитированием
Старый 10.03.2011, 17:01   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
( If Label1.Caption:='+' then Edit1.Text:=FloatToStr(V1+StrToFloa t(Edit1.Text)); )
сами увидите?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 10.03.2011, 17:06   #3
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

покажите обозначение в var V1

добавлено
VirusN13
ArtGrek вне форума Ответить с цитированием
Старый 10.03.2011, 21:22   #4
Luxoff
Пользователь
 
Регистрация: 09.03.2011
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
сами увидите?
Увидел =) Код глаза замылил видимо =) Спасибо!
Luxoff вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Lazarus Markefimov Lazarus, Free Pascal, CodeTyphon 10 25.01.2011 23:09
Lazarus F L o_O P Помощь студентам 3 24.01.2011 20:49
LAZARUS TIGER-777 Помощь студентам 3 06.11.2010 13:44
Lazarus 666Rayne666 Помощь студентам 2 02.06.2010 17:55