Методы, проверяющие корректность данных

@Uther · Регистрация: 25.02.2021

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

Подскажите как грамотно сделать проверку вводимых данных(когда, например, вводят отрицательную сторону треугольнику). Потому что мои попытки заканчиваются вылетом программы.

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
64
65
66
67
68
69
70
71
unit Triangle;
 
interface
 
uses Grids;
 
type
  Angles = array[0..2] of Double;
  TTriangle = class(TObject)
  private
    fA: Double;
    fB: Double;
    fGamma: Double;
  public
    constructor Create; overload;
    constructor Create(a:Double; b:Double; gamma:Double); overload;
    constructor Create(strngrd: TStringGrid); overload;
    destructor Destroy; override;
    function ThirdSide:Double;
    function FindAngles:Angles;
    function Radius:Double;
    function Radius2(q:Double;w:Double;e:Double):Double;
    function bis(a,b,c:double):double;
    procedure CorrectTriangle(a,b:Double);
    property A: Double read fA write fA;
    property B: Double read fB write fB;
    property Gamma: Double read fGamma write fGamma;
 
  end;
 
implementation
 
uses Math, SysUtils, Dialogs;
 
constructor TTriangle.Create;
begin
  inherited;
  fA := 0;
  fB := 0;
  fGamma := 0;
end;
 
constructor TTriangle.Create(a:Double; b:Double; Gamma:Double);
begin
  fA := a;
  fB := b;
  fGamma := Gamma;
end;
 
constructor TTriangle.Create(strngrd: TStringGrid);
begin
  fA := StrToFloat(strngrd.Cells[0,1]);
  fB := StrToFloat(strngrd.Cells[1,1]);
  fGamma := StrToFloat(strngrd.Cells[2,1]);
end;
 
destructor TTriangle.Destroy;
begin
  inherited;
end;
 
procedure TTriangle.CorrectTriangle(a,b:Double);
begin
  if (a>0) then
    fA:=a
  else showmessage('Сторона треугольника не может быть отрицательной, проверьте вводимые данные');
  if (b>0) then
    fB:=b
  else showmessage('Сторона треугольника не может быть отрицательной, проверьте вводимые данные');
 
end;

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
unit Data;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, Triangle, NewTriangle;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    lbl1: TLabel;
    btn1: TBitBtn;
    strngrd2: TStringGrid;
    btn2: TBitBtn;
    strngrd3: TStringGrid;
    btn3: TBitBtn;
    strngrd4: TStringGrid;
    lbl2: TLabel;
    lbl3: TLabel;
    strngrd5: TStringGrid;
    btn4: TBitBtn;
    lbl4: TLabel;
    lbl5: TLabel;
    btn5: TBitBtn;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    btn6: TBitBtn;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    edt4: TEdit;
    edt5: TEdit;
    edt6: TEdit;
    btn7: TBitBtn;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    edt7: TEdit;
    edt8: TEdit;
    edt9: TEdit;
    lbl15: TLabel;
    lbl16: TLabel;
    edt10: TEdit;
    strngrd6: TStringGrid;
    lbl17: TLabel;
    btn8: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure btn7Click(Sender: TObject);
    procedure btn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  strngrd1.Cells[0,0]:='a';
  strngrd1.Cells[1,0]:='b';
  strngrd1.Cells[2,0]:='gamma';
  strngrd1.Cells[0,1]:='0';
  strngrd1.Cells[1,1]:='0';
  strngrd1.Cells[2,1]:='0';
 
  strngrd5.Cells[0,0]:='a';
  strngrd5.Cells[1,0]:='b';
  strngrd5.Cells[2,0]:='c';
  strngrd5.Cells[3,0]:='R';
end;
 
 
procedure TForm1.btn1Click(Sender: TObject);
var a,b,gamma:Double;
c: TTriangle;
begin
  a:=StrToFloat(strngrd1.Cells[0,1]);
  b:=StrToFloat(strngrd1.Cells[1,1]);
  gamma:=StrToFloat(strngrd1.Cells[2,1]);
  c:=TTriangle.Create(a,b,gamma);
  strngrd2.Cells[0,0]:='a';
  strngrd2.Cells[1,0]:='b';
  strngrd2.Cells[2,0]:='c';
  strngrd2.Cells[0,1]:=strngrd1.Cells[0,1];
  strngrd2.Cells[1,1]:=strngrd1.Cells[1,1];
  strngrd2.Cells[2,1]:=FloatToStr(c.ThirdSide);
end;
 
procedure TForm1.btn2Click(Sender: TObject);
var a,b,gamma:Double;
Angles:Triangle.Angles;
Triangle:TTriangle;
begin
  a:=StrToFloat(strngrd2.Cells[0,1]);
  b:=StrToFloat(strngrd2.Cells[1,1]);
  gamma:=StrToFloat(strngrd1.Cells[2,1]);
  Triangle:=TTriangle.Create(a,b,gamma);
  Angles:=Triangle.FindAngles;
  strngrd3.Cells[0,0]:='alpha';
  strngrd3.Cells[1,0]:='beta';
  strngrd3.Cells[2,0]:='gamma';
  strngrd3.Cells[0,1]:=Format('%d'#176'%d'#39, [Trunc(Angles[0]), Round(Frac(Angles[0]) * 60)]);
  strngrd3.Cells[1,1]:=Format('%d'#176'%d'#39, [Trunc(Angles[1]), Round(Frac(Angles[1]) * 60)]);
  strngrd3.Cells[2,1]:=Format('%d'#176'%d'#39, [Trunc(Angles[2]), Round(Frac(Angles[2]) * 60)]);
end;
 
procedure TForm1.btn3Click(Sender: TObject);
var a,b,gamma:Double;
R:TTriangle;
 
begin
  a:=StrToFloat(strngrd2.Cells[0,1]);
  b:=StrToFloat(strngrd2.Cells[1,1]);
  gamma:=StrToFloat(strngrd1.Cells[2,1]);
  R:=TTriangle.Create(a,b,gamma);
 
 
  strngrd4.Cells[0,0]:='a';
  strngrd4.Cells[1,0]:='b';
  strngrd4.Cells[2,0]:='c';
  strngrd4.Cells[3,0]:='R';
 
  strngrd4.Cells[0,1]:=strngrd1.Cells[0,1];
  strngrd4.Cells[1,1]:=strngrd1.Cells[1,1];
  strngrd4.Cells[2,1]:=strngrd2.Cells[2,1];
  strngrd4.Cells[3,1]:=FloatToStr(R.Radius);
 
end;
 
procedure TForm1.btn4Click(Sender: TObject);
var q,w,e,i,j:Double;
R2:TTriangle;
begin
 
 q:=StrToFloat(strngrd5.Cells[0,1]);
  w:=StrToFloat(strngrd5.Cells[1,1]);
  e:=StrToFloat(strngrd5.Cells[2,1]);
 
  R2:=TTriangle.Create(q,w,e);
  strngrd5.Cells[3,1]:=FloatToStr(R2.Radius2(q,w,e));
 
  i:=StrToFloat(strngrd4.Cells[3,1]);
  j:=StrToFloat(strngrd5.Cells[3,1]);
  if i>j then
  begin
    lbl4.Caption:='>';
  end
  else if i=j then
  begin
    lbl4.Caption:='=';
  end
  else if i<j then
  begin
    lbl4.Caption:='<';
  end;
end;
 
procedure TForm1.btn5Click(Sender: TObject);
var a,b,c:Double;
ABC,BAC,CAB:TTriangle;
begin
  a:=StrToFloat(strngrd2.Cells[0,1]);
  b:=StrToFloat(strngrd2.Cells[1,1]);
  c:=StrToFloat(strngrd2.Cells[2,1]);
  ABC:= TTriangle.Create(a,b,c);
  BAC:= TTriangle.Create(a,b,c);
  CAB:= TTriangle.Create(a,b,c);
  edt1.Text:=FloatToStr(ABC.bis(a,b,c));
  edt2.Text:=FloatToStr(BAC.bis(b,a,c));
  edt3.Text:=FloatToStr(CAB.bis(c,a,b));
end;
 
procedure TForm1.btn6Click(Sender: TObject);
var a,b,c:Double;
ABC,BAC,CAB:TNewTriangle;
begin
  a:=StrToFloat(strngrd2.Cells[0,1]);
  b:=StrToFloat(strngrd2.Cells[1,1]);
  c:=StrToFloat(strngrd2.Cells[2,1]);
 
  edt4.Text:=FloatToStr(ABC.vys(a,b,c));
  edt5.Text:=FloatToStr(BAC.vys(b,a,c));
  edt6.Text:=FloatToStr(CAB.vys(c,a,b));
end;
 
procedure TForm1.btn7Click(Sender: TObject);
var a,b,c:Double;
ABC,BAC,CAB:TNewTriangle;
begin
  a:=StrToFloat(strngrd2.Cells[0,1]);
  b:=StrToFloat(strngrd2.Cells[1,1]);
  c:=StrToFloat(strngrd2.Cells[2,1]);
 
  edt7.Text:=FloatToStr(ABC.med(a,b,c));
  edt8.Text:=FloatToStr(BAC.med(b,a,c));
  edt9.Text:=FloatToStr(CAB.med(c,a,b));
end;
 
procedure TForm1.btn8Click(Sender: TObject);
  var a,b,c,number: Double;
  Triangle: TNewTriangle;
begin
 { a:= StrToFloat(strngrd2.Cells[0,1]);
  b:= StrToFloat(strngrd2.Cells[1,1]);
  c:= StrToFloat(strngrd2.Cells[2,1]);
  Triangle:= TNewTriangle.Create(a,b,c);
  number:= StrToFloat(edt10.Text);
  Triangle.MultTriangleOnNumber(number);
  strngrd6.Cells[0,0]:='a';
  strngrd6.Cells[1,0]:='b';
  strngrd6.Cells[2,0]:='c';
  strngrd6.Cells[0,1]:= FloatToStr(Triangle.a);
  strngrd6.Cells[1,1]:= FloatToStr(Triangle.b);
  strngrd6.Cells[2,1]:= FloatToStr(Triangle.c); }
end;
 
end.

@Uther · 09.11.2022, 12:17 **[ТС]**

Такой вопрос еще, я хочу сделать, чтобы пока не введены данные в StringGrid кнопка не была активной. Но как сделать, чтобы я после ввода данных мог нажать кнопку. Не пойму в каком событии написать просто это условие.

Delphi
1
2
3
4
5
6
7
8
if (strngrd5.Cells[0,1]<>'') and (strngrd5.Cells[1,1]<>'') and (strngrd5.Cells[2,1]<>'')  then begin
 
  btn4.Enabled := True;
  end
  else begin ShowMessage('Введите данные второго треугольника');
  btn4.Enabled := False;
  Exit;
  end;

Добавлено через 1 минуту
это я пробовал писать собственно в OnClick, но тут либо делать кнопку временной неактивной, либо есть какой-то другой способ.

@mr-Crocodile · 09.11.2022, 14:00

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

Такой вопрос еще, я хочу сделать, чтобы пока не введены данные в StringGrid кнопка не была активной.

ну так вешайся на событие самого StringGrid и в этом событии проверяй, всё что тебе нужно и делай кнопку доступной/недоступной.

какие события тебе взять?
Ну, вопрос, конечно, интересный.
Смотри,
событие OnGetEditText возникает в момент начала редактирования ячейки.

событие OnExit возникает при уходе фокуса со StringGrid
событие OnSelectCell происходит при изменении выбранной ячейки грида (точнее при выборе другой ячейки StringGrid)

я бы в двух последних событиях написал вызов одного и того же метода, в нём и делал, то, что тебе нужно.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .