отладка

@Warlord · Регистрация: 03.12.2012

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

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

@Puporev · 15.10.2013, 15:28

И кто будет разглядывать твои фото? Выложить текст программы в тему не судьба?

@Warlord · 15.10.2013, 15:32 **[ТС]**

Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
  ENoInf = class(Exception)
  EditNum = class(Exception)
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ScrollBar1: TScrollBar;
    Memo1: TMemo;
 
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
num:integer;
stroka:string;
EditNum:string;
implementation
 
 
uses Unit1;
 
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
if EditNum.Text= then Raise ENoInf.Create ('не задана требуемая информация');
else
try
  case ComboBox1.ItemIndex of
0:Memo1.Lines.Add(Edit1.Text + '+' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)));
1:Memo1.Lines.Add(Edit1.Text + '-' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text)));
2:Memo1.Lines.Add(Edit1.Text + '*' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text)));
3:Memo1.Lines.Add(Edit1.Text + '/' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)));
end;
num:=StrToInt(Stroka);
 
except
 on EDivByZero do MessageDlg ('dgsag', mtWarning,[mbOk],0);
 on EConvertError do ShowMessage ('ошибки преобразование строки в целое число');
 end;
end;
end.

Добавлено через 39 секунд
проверьте что не правильно исправьте((и то что я выше сказал пробовал делать не вышло

@Puporev · 15.10.2013, 15:44

Попробуйте перед строкой 50 написать так, а проверку свою убрать

Delphi
1
2
3
4
5
6
7
8
k:=0;
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)and((Components[i] as TEdit).Text:=''then k:=1;
if k=1 then
 begin
  ShowMesage('Íå âñå ïîëÿ Edit çàïîëíåíû');
  exit
 end;

@Warlord · 15.10.2013, 15:48 **[ТС]**

тобишь строчку 47 заменить?

@Puporev · 15.10.2013, 15:51

Просто попробуй так проверку сделать..
А после этого уже

Delphi
1
2
3
4
5
6
case ComboBox1.ItemIndex of
0:Memo1.Lines.Add(Edit1.Text + '+' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)));
1:Memo1.Lines.Add(Edit1.Text + '-' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text)));
2:Memo1.Lines.Add(Edit1.Text + '*' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text)));
3:Memo1.Lines.Add(Edit1.Text + '/' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)));
end;

@Warlord · 15.10.2013, 15:56 **[ТС]**

неа не пошла((

@Puporev · 15.10.2013, 16:00

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

нельзя оставлять пустые поля тобишь нужно заполнить цифрами

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

@barbudo59 · 15.10.2013, 16:03

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

if EditNum.Text= then

не пропущено ли здесь чего? например, '' ?

@Warlord · 15.10.2013, 16:16 **[ТС]**

у меня вообще ругался на 11 строку

Добавлено через 9 минут
Puporev, мне кажется ты тут скобку пропустил

Delphi
1
if (Components[i] is TEdit)and((Components[i] as TEdit).Text:=''then k:=1;

@Puporev · 15.10.2013, 16:19

Да, после Text:='')

@Warlord · 15.10.2013, 16:24 **[ТС]**

тока почему то на эту строку он ругается так:
Operator not applicable to this operand type

все равно после добавления скобки

@Warlord · 15.10.2013, 16:45 **[ТС]**

Delphi
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
31
32
33
34
35
36
37
38
39
40
41
42
43
var
  Form2: TForm2;
num:integer;
stroka:string;
k:integer;
i:integer;
ShowMesage:string;
implementation
 
 
uses Unit1;
 
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
k:=0;
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)and((Components[i] as TEdit).Text:='')then k:=1;
if k=1 then
 begin
  ShowMesage('Íå âñå ïîëÿ Edit çàïîëíåíû');
  exit
  end;
try
  case ComboBox1.ItemIndex of
0:Memo1.Lines.Add(Edit1.Text + '+' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)));
1:Memo1.Lines.Add(Edit1.Text + '-' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text)));
2:Memo1.Lines.Add(Edit1.Text + '*' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text)));
3:Memo1.Lines.Add(Edit1.Text + '/' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)));
end;
num:=StrToInt(Stroka);
 
except
 on EDivByZero do MessageDlg ('dgsag', mtWarning,[mbOk],0);
 on EConvertError do ShowMessage ('ошибки преобразование строки в целое число');
 end;
end;
end.

@Puporev · 15.10.2013, 16:56

Поправил наши ошибки и опечатки...
Вот это работает

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k:byte; //эти переменные локальные
begin
k:=0;
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)and((Components[i] as TEdit).Text='')then k:=1;
if k=1 then
begin
ShowMessage('Ia ana iiey Edit caiieiaiu');
exit
end;
case ComboBox1.ItemIndex of
0:Memo1.Lines.Add(Edit1.Text + '+' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)));
1:Memo1.Lines.Add(Edit1.Text + '-' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text)));
2:Memo1.Lines.Add(Edit1.Text + '*' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text)));
3:Memo1.Lines.Add(Edit1.Text + '/' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)));
end;
end;

Добавлено через 34 секунды
А дальше можешь писать всякие try и т.д.

@Warlord · 15.10.2013, 17:21 **[ТС]**

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

Поправил наши ошибки и опечатки...
Вот это работает

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i,k:byte; //эти переменные локальные
begin
k:=0;
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)and((Components[i] as TEdit).Text='')then k:=1;
if k=1 then
begin
ShowMessage('Ia ana iiey Edit caiieiaiu');
exit
end;
case ComboBox1.ItemIndex of
0:Memo1.Lines.Add(Edit1.Text + '+' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text)));
1:Memo1.Lines.Add(Edit1.Text + '-' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text)));
2:Memo1.Lines.Add(Edit1.Text + '*' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text)));
3:Memo1.Lines.Add(Edit1.Text + '/' + Edit2.Text + '=' + FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text)));
end;
end;

Добавлено через 34 секунды
А дальше можешь писать всякие try и т.д.

У меня почему то ошибку выдает все еще на ShowMessage('Ia ana iiey Edit caiieiaiu');

@Puporev · 15.10.2013, 17:23

Какую ошибку, что пишет? У меня никакой ошибки нет.

@Warlord · 15.10.2013, 17:25 **[ТС]**

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

Какую ошибку, что пишет? У меня никакой ошибки нет.

[Warning] Unit2.pas(47): For loop control variable must be simple local variable
[Error] Unit2.pas(51): Undeclared identifier: 'ShowMesage'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit2.pas'

@Puporev · 15.10.2013, 17:28

1. Я же написал что переменные i,k должны быть локальными и объявляться в процедуре.
2. ShowMesage пишется ShowMessage

Добавлено через 54 секунды
Уже просто скопировать влом?

@Warlord · 15.10.2013, 17:29 **[ТС]**

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

1. Я же написал что переменные i,k должны быть локальными и объявляться в процедуре.
2. ShowMesage пишется ShowMessage

Добавлено через 54 секунды
Уже просто скопировать влом?

Большое спасибо все работает))это же исключение которое мы сделали так?)

@Puporev · 15.10.2013, 17:31

Это вообще-то проверка на то что Эдиты заполнены.

Добавлено через 32 секунды
Короче я больше пас.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Warlord 2 / 2 / 1 Регистрация: 03.12.2012 Сообщений: 245

	отладка 15.10.2013, 15:26. Показов 1345. Ответов 21 Метки нет (Все метки) помогите сделать исключение:нужно чтобы поле не было пустым,то есть у меня калькулятор и нужно исключение нельзя оставлять пустые поля тобишь нужно заполнить цифрами,файлы моего приложения прилагаются Миниатюры 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2013, 15:28
	И кто будет разглядывать твои фото? Выложить текст программы в тему не судьба? 0

@Warlord 2 / 2 / 1 Регистрация: 03.12.2012 Сообщений: 245
	15.10.2013, 15:48 [ТС]
	тобишь строчку 47 заменить? 0

@Warlord 2 / 2 / 1 Регистрация: 03.12.2012 Сообщений: 245
	15.10.2013, 15:56 [ТС]
	неа не пошла(( 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2013, 16:19
	Да, после Text:='') 0

@Warlord 2 / 2 / 1 Регистрация: 03.12.2012 Сообщений: 245
	15.10.2013, 16:24 [ТС]
	тока почему то на эту строку он ругается так: Operator not applicable to this operand type все равно после добавления скобки 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2013, 17:23
	Какую ошибку, что пишет? У меня никакой ошибки нет. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2013, 17:28
	1. Я же написал что переменные i,k должны быть локальными и объявляться в процедуре. 2. ShowMesage пишется ShowMessage Добавлено через 54 секунды Уже просто скопировать влом? 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.10.2013, 17:31
	Это вообще-то проверка на то что Эдиты заполнены. Добавлено через 32 секунды Короче я больше пас. 0