Классы. Ошибка. Подскажите

@Женечка92 · Регистрация: 26.04.2010

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

Не могу понять в чем ошибка, пробую переделать лабу под свою, выводит ошибку. Помогите, кто знает, в чем косяк.
в исходном задании был ЦЕХ. Имя - String Начальник - String Количество работающих - Integer. у меня КВИТАНЦИЯ. Номер - Integer Дата - Integer Сумма - Float. Комментарии и оформление пока не меняла. все осталось от старой лабы. В чем ошибка, помогите?

@Женечка92 · 18.04.2012, 12:28 **[ТС]**

просто это в чужой лабе так сделано. там нэйм это имя. А у меня там должен быть номер квитанции. если мне сделать вместо name number, вместо code data а вместо number sum так будет нормально?

Добавлено через 2 минуты
да,то другого, но в нем поменяны только типы данных под мои и все.
там имя начальник и чсило работников. у меня номер дата и сумма

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

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Buttons, Menus, XPMan, UnitClass;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var database:array of product; // áàçà äàííûõ - ìàññèâ îáúåêòîâ
    resultdialog:byte; // ðåçóëüòàò ðàáîòû äèàëîãà
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure showdatabase; // îòîáðàæåíèå áàçû äàííûõ
var enabledatabase:boolean; // ïðèçíàê íàëè÷èÿ áàçû äàííûõ
    i:integer; // ñ÷¸ò÷èê äëÿ öèêëà
begin
enabledatabase:=length(database)>0; // ïðîâåðêà íàëè÷èÿ áàçû äàííûõ
if enabledatabase then // åñëè â áàçå äàííûõ åñòü õîòÿ áû îäíà çàïèñü
 begin
 form1.stringgrid1.rowcount:=length(database)+1; // óñòàíàâëèâàåì ñîîòâåòñòâóþùåå êîëè÷åñòâî ñòðîê â êîìïîíåíòå StringGrid1
 for i:=0 to high(database) do // öèêë ïî âñåé áàçå äàííûõ
  if database[i].number='' then // åñëè çàïèñü ïóñòàÿ
   form1.stringgrid1.rows[i+1].text:='-'+#13+#10+'-'+#13+#10+'-' else // îòîáðàæàåì ïóñòóþ çàïèñü
    form1.stringgrid1.rows[i+1].text:=database[i].number+#13+#10+ // îòîáðàæàåì èìÿ
                                      database[i].data+#13+#10+ // îòîáðàæàåì íà÷àëüíèêà
                                      inttostr(database[i].summ); // îòîáðàæàåì êîëè÷åñòâî
 end;
form1.stringgrid1.visible:=enabledatabase; // óïðàâëåíèå âèäèìîñòüþ ñåòêè ñòðîê
form1.n2.enabled:=enabledatabase;          // è äîñòóïíîñòüþ
form1.n8.enabled:=enabledatabase;          // íåêîòîðûõ ïóíêòîâ ìåíþ
form1.n9.enabled:=enabledatabase;          // â çàâèñèìîñòè îò íàëè÷èÿ
form1.n10.enabled:=enabledatabase;         // â áàçå äàííûõ çàïèñåé
end;
 
procedure TForm1.FormCreate(Sender: TObject); // ïðè çàïóñêå ïðèëîæåíèÿ
begin
stringgrid1.rows[0].text:='Íîìåð'+#13+#10+'Äàòà'+#13+#10+'Ñóììà'; // ïîäïèñûâàåì çàãîëîâîê òàáëèöû
showdatabase; // îòîáðàæàåì áàçó äàííûõ
end;
 
procedure TForm1.N2Click(Sender: TObject); // î÷èñòêà áàçû äàííûõ
var i:integer; // ñ÷¸ò÷èê äëÿ öèêëà
begin
for i:=0 to high(database) do // öèêë ïî âñåé áàçå äàííûõ
 database[i].destroy; // óíè÷òîæàåì âñå îáúåêòû ïî îäíîìó
memo1.lines.add('Âûçîâ äåñòðóêòîðà îáúåêòà äëÿ êàæäîãî ýëåìåíòà ìàññèâà');
setlength(database,0); // â ìàññèâå íåò ýëåìåíòîâ
memo1.lines.add('Óñòàíîâêà äëèíû äèíàìè÷åñêîãî ìàññèâà â íîëü');
showdatabase; // îòîáðàæàåì áàçó äàííûõ
memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
memo1.lines.add('');
end;
 
procedure TForm1.N4Click(Sender: TObject); // âûõîä èç ïðîãðàììû
begin
close; // çàêðûâàåì ãëàâíîå îêíî ïðèëîæåíèÿ
end;
 
procedure TForm1.N6Click(Sender: TObject); // äîáàâëåíèå ïóñòîé çàïèñè
begin
setlength(database,length(database)+1); // óâåëè÷åíèå ðàçìåðà ìàññèâà íà îäèí ýëåìåíò
memo1.lines.add('Óâåëè÷åíèå äëèíû äèíàìè÷åñêîãî ìàññèâà êëàññîâ íà îäèí ýëåìåíò');
database[high(database)]:=product.create; // ñîçäàíèå íîâîãî îáúåêòà (âûçîâ êîíñòðóêòîðà áåç ïàðàìåòðîâ)
memo1.lines.add('Âûçîâ êîíñòðóêòîðà êëàññà áåç ïàðàìåòðîâ');
showdatabase; // îòîáðàæàåì áàçó äàííûõ
memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
memo1.lines.add('');
end;
 
procedure TForm1.N7Click(Sender: TObject); // äîáàâëåíèå çàïèñè ñ çàäàííûìè ïàðàìåòðàìè
begin
form2.labelededit1.text:=''; // î÷èùàåì ïîëÿ
form2.labelededit2.text:=''; // äèàëîãîâîé
form2.labelededit3.text:=''; // ôîðìû
form2.speedbutton1.enabled:=false; // êíîïêà "Ïðèíÿòü" íåäîñòóïíà
form2.caption:='Äîáàâëåíèå';
form2.position:=pomainformcenter; // ðàñïîëàãàåì äèàëîãîâóþ ôîðìó ïî öåíòðó ãëàâíîé ôîðìû
form2.showmodal; // îòîáðàæàåì äèàëîãîâóþ ôîðìó â ìîäàëüíîì ðåæèìå
if resultdialog=1 then // åñëè ïîäòâåðäèëè äîáàâëåíèå
 begin
 setlength(database,length(database)+1); // óâåëè÷åíèå ðàçìåðà ìàññèâà íà îäèí ýëåìåíò
 memo1.lines.add('Óâåëè÷åíèå äëèíû äèíàìè÷åñêîãî ìàññèâà êëàññîâ íà îäèí ýëåìåíò');
 database[high(database)]:=product.create(form2.labelededit1.text,form2.labelededit2.text,strtoint(form2.labelededit3.text)); // ñîçäàíèå íîâîãî îáúåêòà (âûçîâ êîíñòðóêòîðà ñ ïàðàìåòðàìè)
 memo1.lines.add('Âûçîâ êîíñòðóêòîðà êëàññà ñ ïàðàìåòðàìè');
 showdatabase; // îòîáðàæàåì áàçó äàííûõ
 memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
 memo1.lines.add('');
 end;
end;
 
procedure TForm1.N8Click(Sender: TObject); // ðåäàêòèðîâàíèå òåêóùåé çàïèñè ñ ïîìîùüþ ìåòîäîâ êëàññà
begin
form2.labelededit1.text:=inttostr(database[stringgrid1.row-1].getnumber);             // âíîñèì äàííûå ñ òåêóùåé çàïèñè
memo1.lines.add('Âûçîâ ìåòîäà çàïðîñà íîìåðà');
form2.labelededit2.text:=inttostr(database[stringgrid1.row-1].getdata);             // áàçû äàííûõ â ñîîòâåòñòâóþùèå ïîëÿ
memo1.lines.add('Âûçîâ ìåòîäà çàïðîñà äàòû');
form2.labelededit3.text:=floattostr(database[stringgrid1.row-1].getsumm); // äèàëîãîâîé ôîðìû ñ ïîìîùüþ ìåòîäîâ êëàññà
memo1.lines.add('Âûçîâ ìåòîäà çàïðîñà ñóììû');
memo1.lines.add('');
form2.speedbutton1.enabled:=true; // êíîïêà "Ïðèíÿòü" äîñòóïíà
form2.caption:='Ðåäàêòèðîâàíèå ìåòîäàìè êëàññà';
form2.position:=pomainformcenter; // ðàñïîëàãàåì äèàëîãîâóþ ôîðìó ïî öåíòðó ãëàâíîé ôîðìû
form2.showmodal; // îòîáðàæàåì äèàëîãîâóþ ôîðìó â ìîäàëüíîì ðåæèìå
if resultdialog=1 then // åñëè áûëî ïîäòâåðæäåíèå âíåñåíèÿ èçìåíåíèé
 begin
 database[stringgrid1.row-1].setnumber(strtoint(form2.labelededit1.text));             // âíîñèì èçìåíåíèÿ
 memo1.lines.add('Âûçîâ ìåòîäà óñòàíîâêè íîìåðà');
 database[stringgrid1.row-1].setdata(strtoint(form2.labelededit2.text));             // â ñîîòâåòñòâóþùóþ çàïèñü áàçû äàííûõ
 memo1.lines.add('Âûçîâ ìåòîäà óñòàíîâêè äàòû');
 database[stringgrid1.row-1].setsumm(strtofloat(form2.labelededit3.text)); // ñ ïîìîùüþ ìåòîäîâ êëàññà
 memo1.lines.add('Âûçîâ ìåòîäà óñòàíîâêè ñóììû');
 showdatabase; // îòîáðàæàåì áàçó äàííûõ
 memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
 memo1.lines.add('');
 end;
end;
 
procedure TForm1.N9Click(Sender: TObject); // ðåäàêòèðîâàíèå òåêóùåé çàïèñè ñ ïîìîùüþ ñâîéñòâ êëàññà
begin
form2.labelededit1.text:=inttostr(database[stringgrid1.row-1].number);             // âíîñèì äàííûå ñ òåêóùåé çàïèñè
memo1.lines.add('×òåíèå ñâîéñòâà äëÿ íîìåðà');
form2.labelededit2.text:=inttostr(database[stringgrid1.row-1].data);             // áàçû äàííûõ â ñîîòâåòñòâóþùèå ïîëÿ
memo1.lines.add('×òåíèå ñâîéñòâà äëÿ äàòû');
form2.labelededit3.text:=floattostr(database[stringgrid1.row-1].summ); // äèàëîãîâîé ôîðìû ñ ïîìîùüþ ñâîéñòâ êëàññà
memo1.lines.add('×òåíèå ñâîéñòâà äëÿ ñóììû');
memo1.lines.add('');
form2.speedbutton1.enabled:=true; // êíîïêà "Ïðèíÿòü" äîñòóïíà
form2.caption:='Ðåäàêòèðîâàíèå ñâîéñòâàìè êëàññà';
form2.position:=pomainformcenter; // ðàñïîëàãàåì äèàëîãîâóþ ôîðìó ïî öåíòðó ãëàâíîé ôîðìû
form2.showmodal; // îòîáðàæàåì äèàëîãîâóþ ôîðìó â ìîäàëüíîì ðåæèìå
if resultdialog=1 then // åñëè áûëî ïîäòâåðæäåíèå âíåñåíèÿ èçìåíåíèé
 begin
 database[stringgrid1.row-1].number:=strtoint(form2.labelededit1.text);             // âíîñèì èçìåíåíèÿ
 memo1.lines.add('Çàïèñü ñâîéñòâà äëÿ íîìåðà');
 database[stringgrid1.row-1].data:=strtoint(form2.labelededit2.text);             // â ñîîòâåòñòâóþùóþ çàïèñü áàçû äàííûõ
 memo1.lines.add('Çàïèñü ñâîéñòâà äëÿ äàòû');
 database[stringgrid1.row-1].summ:=strtofloat(form2.labelededit3.text); // ñ ïîìîùüþ ñâîéñòâ êëàññà
 memo1.lines.add('Çàïèñü ñâîéñòâà äëÿ ñóììû');
 showdatabase; // îòîáðàæàåì áàçó äàííûõ
 memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
 memo1.lines.add('');
 end;
end;
 
procedure TForm1.N10Click(Sender: TObject); // óäàëåíèå òåêóùåé çàïèñè
var i:integer; // ñ÷¸ò÷èê äëÿ öèêëà
begin
for i:=stringgrid1.row to high(database) do // öèêë ïî áàçå äàííûõ îò ñëåäóþùåãî çà òåêóùèì ýëåìåíòà è äî êîíöà
 begin
 database[i-1].number:=database[i].number;     // ñäâèãàåì ýëåìåíòû
 database[i-1].data:=database[i].data;     // áàçû äàííûõ
 database[i-1].summ:=database[i].summ; // íà îäèí ê íà÷àëó
 end;
memo1.lines.add('Ñäâèã âñåõ çàïèñåé, ðàñïîëîæåííûõ íèæå òåêóùåé, íà îäíó ââåðõ');
database[high(database)].destroy; // óäàëÿåì ïîñëåäíþþ çàïèñü
memo1.lines.add('Âûçîâ äåñòðóêòîðà îáúåêòà äëÿ ïîñëåäíåé çàïèñè');
setlength(database,high(database)); // óìåíüøåíèå ðàçìåðà ìàññèâà íà îäèí ýëåìåíò
memo1.lines.add('Óìåíüøåíèå äëèíû äèíàìè÷åñêîãî ìàññèâà êëàññîâ íà îäèí ýëåìåíò');
showdatabase; // îòîáðàæàåì áàçó äàííûõ
memo1.lines.add('Îáíîâëåíèå ñîäåðæèìîãî áàçû äàííûõ');
memo1.lines.add('');
end;
 
end.

[Error] Unit1.pas(57): Incompatible types: 'String' and 'Integer'

Добавлено через 1 минуту

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
unit UnitClass;
 
interface
 
type product=class(tobject) // îáúÿâëåíèå êëàññà
             private // çàùèù¸ííûå îïèñàíèÿ
             fnumber:integer; // èìÿ
             fdata:integer; // íà÷àëüíèê
             fsumm:real; // êîëè÷åñòâî
             public // îáùåäîñòóïíûå îïèñàíèÿ
             constructor create; overload; // êîíñòðóêòîð áåç ïàðàìåòðîâ
             constructor create(newnumber,newdata:integer;newsumm:real); overload; // êîíñòðóêòîð ñ ïàðàìåòðàìè
             destructor destroy; // äåñòðóêòîð
             function getnumber:integer; // ìåòîä äëÿ ïîëó÷åíèÿ èìåíè
             function getdata:integer; // ìåòîä äëÿ ïîëó÷åíèÿ íà÷àëüíèêà
             function getsumm:real; // ìåòîä äëÿ ïîëó÷åíèÿ êîëè÷åñòâà
             procedure setnumber(newnumber:integer); // ìåòîä äëÿ çàäàíèÿ èìåíè
             procedure setdata(newdata:integer); // ìåòîä äëÿ çàäàíèÿ íà÷àëüíèêà
             procedure setsumm(newsumm:real); // ìåòîä äëÿ çàäàíèÿ êîëè÷åñòâà
             property number:integer read getnumber write setnumber; // ñâîéñòâî - èìÿ
             property data:integer read getdata write setdata; // ñâîéñòâî - íà÷àëüíèê
             property summ:real read getsumm write setsumm; // ñâîéñòâî - êîëè÷åñòâî
             end;
 
implementation
 
constructor product.create; // êîíñòðóêòîð áåç ïàðàìåòðîâ
begin
fnumber:=0;  // çíà÷åíèÿ âåëè÷èí
fdata:=0;  // ïðèíÿòûõ
fsumm:=0; // ïî óìîë÷àíèþ
end;
 
constructor product.create(newnumber,newdata:integer;newsumm:real); // êîíñòðóêòîð ñ ïàðàìåòðàìè
begin
fnumber:=newnumber;     // ïåðåíîñèì äàííûå
fdata:=newdata;     // èç ïåðåäàííûõ ïàðàìåòðîâ
fsumm:=newsumm; // â ïîëÿ êëàññà
end;
 
destructor product.destroy; // äåñòðóêòîð
begin
// â òåëå äåñòðóêòîðà íè÷åãî ïèñàòü íå íóæíî,
// òàê êàê â êëàññå íå èñïîëüçóþòñÿ äèíàìè÷åñêèå äàííûå
end;
 
function product.getnumber:integer; // ìåòîä äëÿ ïîëó÷åíèÿ èìåíè
begin
result:=fnumber; // âîçâðàùàåì ðåçóëüòàò - äàííûå ñîîòâåòñòâóþùåãî ïîëÿ êëàññà
end;
 
function product.getdata:integer; // ìåòîä äëÿ ïîëó÷åíèÿ íà÷àëüíèêà
begin
result:=fdata; // âîçâðàùàåì ðåçóëüòàò - äàííûå ñîîòâåòñòâóþùåãî ïîëÿ êëàññà
end;
 
function product.getsumm:real; // ìåòîä äëÿ ïîëó÷åíèÿ êîëè÷åñòâà
begin
result:=fsumm; // âîçâðàùàåì ðåçóëüòàò - äàííûå ñîîòâåòñòâóþùåãî ïîëÿ êëàññà
end;
 
procedure product.setnumber(newnumber:integer); // ìåòîä äëÿ çàäàíèÿ èìåíè
begin
fnumber:=newnumber; // ïåðåíîñèì äàííûå â ñîîòâåòñòâóþùåå ïîëå êëàññà
end;
 
procedure product.setdata(newdata:integer); // ìåòîä äëÿ çàäàíèÿ íà÷àëüíèêà
begin
fdata:=newdata; // ïåðåíîñèì äàííûå â ñîîòâåòñòâóþùåå ïîëå êëàññà
end;
 
procedure product.setsumm(newsumm:real); // ìåòîä äëÿ çàäàíèÿ êîëè÷åñòâà
begin
fsumm:=newsumm; // ïåðåíîñèì äàííûå â ñîîòâåòñòâóþùåå ïîëå êëàññà
end;
 
end.

DenNik · 18.04.2012, 15:02

одно из двух:

или вам так хреново объясняли учебный материал, или ты так слушала, что в итоге ничего не усвоила. Судя по твоим высказываниям, присутствуют большие пробелы в знании элементарных понятий, а без этого любое наше объяснение не будет иметь смысла.

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

DenNik Житель Земли 3004 / 3026 / 390 Регистрация: 26.07.2011 Сообщений: 11,465 Записей в блоге: 1
	18.04.2012, 15:02
	одно из двух: или вам так хреново объясняли учебный материал, или ты так слушала, что в итоге ничего не усвоила. Судя по твоим высказываниям, присутствуют большие пробелы в знании элементарных понятий, а без этого любое наше объяснение не будет иметь смысла. 0