Програма-тест на Delphi

  • Автор темы Bembi
  • Дата начала
B

Bembi

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

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

в модуле Unit4 :
[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
 
R

romanriddick

#3
Тільки через те що ви з України

http://zalil.ru/30366950

файл компілюється , але при спробі провести тест вискакує помилка ...
попробуйте самі розібратись , якщо не получиться , через 2 дні зроблю
romanriddick@bk.ru