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

Тема в разделе "Pascal and Delphi", создана пользователем Bembi, 19 янв 2011.

  1. Bembi

    Bembi Гость

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

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

    в модуле 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
     
  2. Dock1100

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
  3. romanriddick

    romanriddick Гость

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

    http://zalil.ru/30366950

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

Поделиться этой страницей