Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.01.2011, 20:18
Bembi Bembi вне форума
Прохожий
 
Регистрация: 19.01.2011
Сообщения: 1
Репутация: 10
По умолчанию не могу обединить програмные модули...

помогите пожалуйста. очень нужно, срочно! завтра здавать

я пишу програму-тестирование
содержыт два проекта: редактор тестов и тестирование

в модуле Unit4 :
Код:
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
[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
{ Private declarations }
public
{ Public declarations }
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.
Админ: Пользуемся тегами для оформления кода!

Здесь мой проект:http://zalil.ru/30365610

Последний раз редактировалось Admin, 19.01.2011 в 20:26.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:27.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025