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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2013, 13:06   #1
Ruz34
Пользователь
 
Регистрация: 08.02.2013
Сообщений: 10
По умолчанию Калькулятор. Функция +/-

Только начал изучать Delphi и решил создать калькулятор. Запнулся на функции +/-. Сначала он работал, но почему то после каждого нажатия кнопки вставлял - по несколько раз перед текстом. Затем я полностью изменил код, но теперь вылезает ошибка. Помогите пожалуйста.

PHP код:
procedure TForm1.Button20Click(SenderTObject);
var 
s:string;
begin
s
:=edit1.text;
 if 
<> '' then
 begin
  
if pos('-',s) = 0 then edit1.text:='-'edit1.text
  
else edit1.text:=copy(s;2;length(s)-1);
 
end else label1.Font.color:=clnone;
end
Перед 2 показывает вот эту ошибку:
[Error] Unit1.pas(253): Not enough actual parameters
Ruz34 вне форума Ответить с цитированием
Старый 08.02.2013, 13:30   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Сравни (второй вариант правильный)
copy(s;2;length(s)-1)
и
copy(s,2,length(s)-1)
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 09.02.2013, 16:50   #3
Ruz34
Пользователь
 
Регистрация: 08.02.2013
Сообщений: 10
По умолчанию

Спасибо. Просто в всплывающей подсказке было написано ; ;.
Ruz34 вне форума Ответить с цитированием
Старый 11.02.2013, 06:57   #4
superedward
Форумчанин
 
Аватар для superedward
 
Регистрация: 27.11.2012
Сообщений: 190
По умолчанию

Цитата:
Сообщение от Ruz34 Посмотреть сообщение
Спасибо. Просто в всплывающей подсказке было написано ; ;.
Плохая всплывающая подсказка!
superedward вне форума Ответить с цитированием
Старый 11.02.2013, 07:03   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

как вариант
Код:
if pos('-',s) = 1 then delete(s,1,1)
  else s:='-'+s;
edit1.text:=s;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
калькулятор! Чика Общие вопросы Delphi 7 07.10.2010 18:05
калькулятор Bat{CMD}_Men Общие вопросы Delphi 1 22.04.2010 09:36
Калькулятор на C++ stox11 Помощь студентам 2 09.02.2010 07:31
Калькулятор mary1421 Общие вопросы Delphi 3 21.09.2009 13:40
одна функция потока, а другая функция - член класса запускающего этот поток Дмитрий_Ч Общие вопросы C/C++ 2 27.09.2007 08:50