Не работает StrToInt - Помощь студентам

Dronik · 21.01.2008, 10:38

Доброе время суток! Подскажите, пожалуйстa, в чем моя ошибка:

Код:

var
  chislo1 : integer;
  chislo2 : integer;
  rezultat : integer;
begin
//происх. нажатие кнопки
  rezultat := StrToInt (Edit1.Text) + StrToInt (Edit2.Text);    
Label1.Caption := 'Сумма равна:' + IntToStr(Rezultat);
<...>

Говорит, что String и Integer несовместимы...
Программа предпологает наличие только одной кнопки, выполняющей сложение TEdit1 и TEdit2.

Stilet · 21.01.2008, 11:05

Цитата:

Говорит, что String и Integer несовместимы...

На какой строке?

Может ты неверно вводиш в эдиты числа или вводиш нечисла, ибо код работает нормательно.

Dronik · 21.01.2008, 11:12

на 8ой строке...
Даже не запускается
Не знамо даже...
Делал по книжке (код мой.на основе примеров)

А работа кода может зависеть от версии Дэлфи? (У меня 7ая)?

Stilet · 21.01.2008, 11:28

Цитата:

А работа кода может зависеть от версии Дэлфи? (У меня 7ая)?

Ну в принципе может, но это достаточно малая вероятность. (от генофонда зависит)
А если конвертить каждое число в отдельную переменку?

Sibedir · 21.01.2008, 13:13

Вот то, что ты делаешь. Это работает:
Summa.zip
Дело скорее всего в неверном вводе строк в Edit'ы. Ты точно туда целые числа вводишь (1, 2, -100, 555)? Выложи снимок окна сообщения.

Dronik · 21.01.2008, 13:31

2 Stilet : спасибо, дома попробую...
2 Sibedir : Снимок завтра выложу... А так она вообще не запускалась. Восьмая строка и вышеописанная ошибка... Признателен за выложенный пример!
...и вообще - СПАСИБО ЗА ПОМОЩЬ!

mihali4 · 21.01.2008, 14:09

Цитата:

Говорит, что String и Integer несовместимы

Приведенный вами кусок кода действительно не содержит никакого криминала. Может, дело в том куске, который вы так стыдливо замаскировади под <...>?
В пользу этого соображения говорит ваше

Цитата:

она вообще не запускалась

Dronik · 21.01.2008, 14:48

Вот снимок экрана... Надеюсь, он больше Вам объяснит, чем я...

alexBlack · 21.01.2008, 14:52

Цитата:

Сообщение от Dronik

Вот снимок экрана... Надеюсь, он больше Вам объяснит, чем я... Вложение 2397

То, что на картинке не совпадает с первым примером в теме. В теме-то правильно, почему-же в коде к строке прибавляем integer ?

Dronik · 21.01.2008, 15:05

извиняюсь, поторопился! Безымянный.rar

21.01.2008, 10:38	#1
Dronik Регистрация: 19.01.2008 Сообщений: 7	Не работает StrToInt Доброе время суток! Подскажите, пожалуйстa, в чем моя ошибка: Код: `var chislo1 : integer; chislo2 : integer; rezultat : integer; begin //происх. нажатие кнопки rezultat := StrToInt (Edit1.Text) + StrToInt (Edit2.Text); Label1.Caption := 'Сумма равна:' + IntToStr(Rezultat); <...>` Говорит, что String и Integer несовместимы... Программа предпологает наличие только одной кнопки, выполняющей сложение TEdit1 и TEdit2. Чем больше узнаю, тем больше понимаю, что ничего не знаю...

21.01.2008, 11:12	#3
Dronik Регистрация: 19.01.2008 Сообщений: 7	на 8ой строке... Даже не запускается Не знамо даже... Делал по книжке (код мой.на основе примеров) А работа кода может зависеть от версии Дэлфи? (У меня 7ая)? Чем больше узнаю, тем больше понимаю, что ничего не знаю...

21.01.2008, 13:31	#6
Dronik Регистрация: 19.01.2008 Сообщений: 7	2 Stilet : спасибо, дома попробую... 2 Sibedir : Снимок завтра выложу... А так она вообще не запускалась. Восьмая строка и вышеописанная ошибка... Признателен за выложенный пример! ...и вообще - СПАСИБО ЗА ПОМОЩЬ! Чем больше узнаю, тем больше понимаю, что ничего не знаю...

21.01.2008, 15:05	#10
Dronik Регистрация: 19.01.2008 Сообщений: 7	извиняюсь, поторопился! Безымянный.rar Чем больше узнаю, тем больше понимаю, что ничего не знаю...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
StrToInt и IntToStr	AVer	Общие вопросы Delphi	9	04.07.2010 13:57
StrToInt()	Zeraim	Общие вопросы Delphi	4	04.06.2008 18:31
StringGrid (StrToInt)	Небесный	Общие вопросы Delphi	9	13.02.2008 21:24
не работает!	RECREATOR	Общие вопросы Delphi	6	29.11.2007 12:42
Не работает try except!!!	Radost	БД в Delphi	17	03.06.2007 11:07

21.01.2008, 13:13	#5
Sibedir Тот ещё Старожил Регистрация: 14.11.2007 Сообщений: 2,242	Вот то, что ты делаешь. Это работает: Summa.zip Дело скорее всего в неверном вводе строк в Edit'ы. Ты точно туда целые числа вводишь (1, 2, -100, 555)? Выложи снимок окна сообщения.