[Error] Unit4
.
pas(
41
): Undeclared identifier:
'Label7'
[Error] Unit4
.
pas(
42
): Undeclared identifier:
'Label9'
[Error] Unit4
.
pas(
43
): Undeclared identifier:
'Table1'
[Error] Unit4
.
pas(
44
): Undeclared identifier:
'CheckBox1'
[Error] Unit4
.
pas(
45
): Undeclared identifier:
'CheckBox2'
[Error] Unit4
.
pas(
46
): Undeclared identifier:
'CheckBox3'
[Error] Unit4
.
pas(
47
): Undeclared identifier:
'CheckBox4'
[Error] Unit4
.
pas(
48
): Undeclared identifier:
'DBRadioGroup1'
[Error] Unit4
.
pas(
48
):
'THEN'
expected but identifier
'ItemIndex'
found
[Error] Unit4
.
pas(
50
): Undeclared identifier:
'DBImage1'
[Error] Unit4
.
pas(
51
): Undeclared identifier:
'DBMemo1'
[Error] Unit4
.
pas(
55
): Undeclared identifier:
'DBImage1'
[Error] Unit4
.
pas(
56
): Undeclared identifier:
'DBMemo1'
Вот сам текст модуля:
unit
Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm4 =
class
(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
Edit3: TEdit;
procedure
BitBtn1Click(Sender: TObject);
private
public
end
;
var
Form4: TForm4;
implementation
uses
Unit1, Unit5;
{$R *.dfm}
procedure
TForm4
.
BitBtn1Click(Sender: TObject);
begin
if
(Edit1
.
Text<>
''
)
and
(Edit2
.
Text<>
''
)
and
(Edit3
.
Text<>
''
)
then
begin
Form4
.
Close;
Form1
.
Hide;
Form5
.
Show;
Form5
.
Label7
.
Caption:=
'ВIДПOВIДАЄ: '
+Edit1
.
Text+
' '
+Edit2
.
Text;
Form5
.
Label9
.
Caption:=
'0'
;
Form5
.
Table1
.
First;
Form5
.
CheckBox1
.
Checked:=
false
;
Form5
.
CheckBox2
.
Checked:=
false
;
Form5
.
CheckBox3
.
Checked:=
false
;
Form5
.
CheckBox4
.
Checked:=
false
;
if
Form5
.
DBRadioGroup1
.
ItemIndex=
0
then
begin
Form5
.
DBImage1
.
Visible:=
true
;
Form5
.
DBMemo1
.
Visible:=
false
;
end
else
begin
Form5
.
DBImage1
.
Visible:=
false
;
Form5
.
DBMemo1
.
Visible:=
true
;
end
;
end
else
MessageDlg(
'Запoвнiть уci пoля!'
, mtInformation, [mbOk],
0
);
end
;
end
.