Если вводит в объект Edit отрицательное число, то выдает ошибку "-" is not a valid integer value". Как исправить?

@ArtemK · Регистрация: 07.10.2012

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  Form1: TForm1;
 a,r:integer;
 l,s,v,p:real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
p:=3;
r:=strtoint (edit1.Text);
a:=strtoint (edit2.Text);
case a of
1: begin
  l:=2*p*r;
  edit3.Text:='Длина оружности L= '+floattostrf(l,fffixed,1,0);
  end;
  2: begin
  s:=p*r*r;
  edit3.Text:='Площадь круга S= '+floattostrf(s,fffixed,1,0);
  end;
  3: begin
  v:=(4*r*r*r)/3;
  edit3.Text:='Объем шара V= '+floattostrf(v,fffixed,1,0);
  end;
end;
end;
end.

@Any0019 · 13.11.2012, 18:16

Проще так, как я написал)

@FIL · 13.11.2012, 18:16

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

Delphi
1
2
if Edit1.Text[1]='-' then
    Edit1.Text:=inttostr(abs(strtoint(Edit1.Text)));

Ты сам то понял, что написал?

Delphi
1
Edit1.Text:=inttostr(abs(strtoint('-')));

и какой должен быть результат?

@ArtemK · 13.11.2012, 18:19 **[ТС]**

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

Delphi
1
2
3
4
5
6
if Edit2.Text[1]='-' then 
 Begin
 Edit2.Text[1]:='0';
 x:=StrToInt(Edit2.Text)*(-1);
 end
 else x:=StrToInt(Edit2.Text);

ты ввел вот так?

Да, я вот так вводил.

@DaMortum · 13.11.2012, 18:19

Я догнал. У тебя используется событие OnChange. Нужно просто

Delphi
1
2
StrToInt(Edit1.Text)
StrToInt(Edit2.Text)

заменить на

Delphi
1
2
StrToIntDef(Edit1.Text,0) 
StrToIntDef(Edit2.Text,0)

@ArtemK · 13.11.2012, 18:20 **[ТС]**

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

Я догнал. У тебя используется событие OnChange. Нужно просто

Delphi
1
2
StrToInt(Edit1.Text)
StrToInt(Edit2.Text)

заменить на

Delphi
1
2
StrToIntDef(Edit1.Text,0) 
StrToIntDef(Edit2.Text,0)

А DEF в конце что означает?

@Any0019 · 13.11.2012, 18:21

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

Ты сам то понял, что написал?

Delphi
1
Edit1.Text:=inttostr(abs(strtoint('-')));

и какой должен быть результат?

Он написал все правильно, но просто это тоже самое, что Edit1.Text[1]:='0', только более сложными словами ^^

@al1as · 13.11.2012, 18:21

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

Ты сам то понял, что написал?

Delphi
1
Edit1.Text:=inttostr(abs(strtoint('-')));

и какой должен быть результат?

Вполне годный вариант для чисел, длина которых <> 1; собственно кинуть еще одно условие перед этим.

@Any0019 · 13.11.2012, 18:23

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

Да, я вот так вводил.

Странно, тогда я не знаю, наверное, чем и как помочь(

@DaMortum · 13.11.2012, 18:25

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

А DEF в конце что означает?

В случае ошибки фукция вернёт число в скобочках после запятой. В данном случае ноль.

@FIL · 13.11.2012, 18:25

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

Вполне годный вариант для чисел, длина которых <> 1; собственно кинуть еще одно условие перед этим.

Ты символ '-' пытаешься в число перегнать.

@al1as · 13.11.2012, 18:46

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

Ты символ '-' пытаешься в число перегнать.

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

собственно кинуть еще одно условие перед этим.

Любо сделать сложное с проверкой длины.

Delphi
1
2
if (Edit1.Text[1]='-') and (length(Edit1.Text)<>1) then
  edit1.Text:=inttostr(abs(strtoint(Edit1.Text)));

И вообще, к чему этот неоправданный агр в мою сторону?Я не обязан дать полностью работающий вариант, я должен лишь направить мысль задающего вопрос в нужное русло.

@FIL · 13.11.2012, 19:05

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

И вообще, к чему этот неоправданный агр в мою сторону?Я не обязан дать полностью работающий вариант, я должен лишь направить мысль задающего вопрос в нужное русло.

Ну так а зачем человеку полностью нерабочий давать? Ему и так не легко. Ты б хоть проверял прежде чем писать.

@DaMortum · 13.11.2012, 19:16

У человека, похоже, всё получилось. Только он сказать об этом забыл.

@al1as · 13.11.2012, 19:25

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

Ну так а зачем человеку полностью нерабочий давать? Ему и так не легко. Ты б хоть проверял прежде чем писать.

Мда, ну и индивиды тут обитают, я дал лишь кусок, подкорректировать условие для реализации своей задачи любой дегрод сможет.

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

У человека, похоже, всё получилось. Только он сказать об этом забыл.

Согласен, тема себя исчерпала.

@ArtemK · 13.11.2012, 19:52 **[ТС]**

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

Мда, ну и индивиды тут обитают, я дал лишь кусок, подкорректировать условие для реализации своей задачи любой дегрод сможет.

Согласен, тема себя исчерпала.

Ну, начну с того, что у меня так и ничего не получилось. Не смог ответить, получилось или нет!
Во-вторых, спасибо, что помогли!!!
В-третьих, я Delphi только начал изучать, и что где исправить с трудом понимаю.
И наконец, если уж каждый дегрод исправить может, то увы, я не дегрод, и не могу исправить))

@FIL · 13.11.2012, 20:08

ArtemK, добавь:

Delphi
1
2
3
procedure TForm1.Edit2Change(Sender: TObject);
begin
  if (Edit2.Text[1] = '-') and (Length(Edit2.Text) = 1) then Exit;

al1as, проверь свой код в Дельфи. Ты можешь вставить туда что угодно, он работать не будет.

Delphi
1
2
if Edit1.Text[1]='-' then
    Edit1.Text:=inttostr(abs(strtoint(Edit1.Text)));

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Any0019 95 / 14 / 13 Регистрация: 26.05.2012 Сообщений: 63
	13.11.2012, 18:16
	Проще так, как я написал) 0

@DaMortum 251 / 156 / 31 Регистрация: 07.10.2012 Сообщений: 401
	13.11.2012, 19:16
	У человека, похоже, всё получилось. Только он сказать об этом забыл. 0