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
| unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Math;
type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit7: TEdit;
Edit8: TEdit;
procedure Button1Click(Sender: TObject);
procedure SetTextGrid(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type Point=Record
model:string;
price,horizSize,verticSize:integer;
validation:boolean;
end;
var
Form1: TForm1;
tab: array[1..100] of Point;
boof:array[0..1]of Point;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var price,vertical,horizontal,rows:integer;
begin
if ((Trystrtoint(Edit2.Text,price)) and (StrToInt(Edit2.Text)>0)) or ((Trystrtoint(Edit3.Text,horizontal)) and (StrToInt(Edit3.Text)>0)) or ((Trystrtoint(Edit4.Text,vertical)) and (StrToInt(Edit4.Text)>0)) then
begin
price:=StrToInt(Edit2.Text);
horizontal:=StrToInt(Edit3.Text);
vertical:=StrToInt(Edit4.Text);
if (Length(Edit1.Text)=0) or (Length(Edit3.Text)=0) or (Length(Edit4.Text)=0) then
Showmessage('Не все поля заполнены!')
else
begin
rows:=StringGrid1.RowCount;
StringGrid1.RowCount:=rows+1;
StringGrid1.Cells[0,rows]:=Edit1.Text;
StringGrid1.Cells[1,rows]:=Edit2.Text;
StringGrid1.Cells[2,rows]:=Edit3.Text;
StringGrid1.Cells[3,rows]:=Edit4.Text;
tab[rows].model:=Edit1.Text;
tab[rows].price:=price;
tab[rows].horizSize:=horizontal;
tab[rows].verticSize:=vertical;
tab[rows].validation:=false;
end;
end
else
Showmessage('Цена введена неправильно!');
end;
procedure TForm1.SetTextGrid(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Модель сканера';
StringGrid1.Cells[1,0]:='Цена';
StringGrid1.Cells[2,0]:='Размер горизонтали';
StringGrid1.Cells[3,0]:='Размер вертикали';
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if pos(key,' ')<>0 then Key:=#0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,minH,maxH,minV,maxV,count:integer;
begin
if StringGrid1.RowCount>1 then
if ((Trystrtoint(Edit5.Text,minH)) and (StrToInt(Edit5.Text)>0)) or ((Trystrtoint(Edit6.Text,maxH)) and (StrToInt(Edit6.Text)>0)) or ((Trystrtoint(Edit7.Text,minV)) and (StrToInt(Edit7.Text)>0)) or ((Trystrtoint(Edit8.Text,maxV)) and (StrToInt(Edit8.Text)>0)) then
begin
minH:=StrToInt(Edit5.Text);
maxH:=StrToInt(Edit6.Text);
minV:=StrToInt(Edit7.Text);
maxV:=StrToInt(Edit8.Text);
count:=1;
for i:=1 to StringGrid1.RowCount do
begin
if (tab[i].horizSize>=minH) and (tab[i].horizSize<=maxH) and (tab[i].verticSize>=minV) and (tab[i].verticSize<=maxV) then
tab[i].validation:=true
else
tab[i].validation:=false;
end;
for i:=1 to StringGrid1.RowCount do
begin
if tab[i].validation then
begin
count:=count+1;
StringGrid1.Cells[0,i]:=tab[i].model;
StringGrid1.Cells[1,i]:=IntToStr(tab[i].price);
StringGrid1.Cells[2,i]:=IntToStr(tab[i].horizSize);
StringGrid1.Cells[3,i]:=IntToStr(tab[i].verticSize);
end;
end;
StringGrid1.RowCount:=count;
end
else
showMessage('Диапазоны введены неправильно!')
else
showMessage('Нету данных для фильтрации!');
end;
end. |
(
