Курсовой проект групп 3341 и 3382 / Baes / baes2

unit baes2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Instances;

type
  TChoice = class(TForm)
    Yes: TBitBtn;
    Name_of_attr: TLabel;
    Choose: TComboBox;
    procedure YesClick(Sender: TObject);
    procedure ChooseSelect(Sender: TObject);
   

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Choice: TChoice;
 // inst1 : TDMInstances;
implementation



{$R *.dfm}


uses baes1;

procedure TChoice.YesClick(Sender: TObject);
var i:integer;
seq:string;
begin
Yes.ModalResult := mrOk;                  //выход из диалогового режима

seq := Name_of_attr.Caption;              //получаем имя атрибута
i := inst1.attribute(seq).index;          //получаем его порядковый номер
fmExample.mmOutput.Lines.Add('ЗАДАНО УСЛОВИЕ: ' + Name_of_attr.Caption + ' = ' + Choose.Text);
pult.setValue(inst1.attribute(i), Choose.Text);
                                           //запоминаем выбранное номинальное значение
//fmExample.ed.Text :=pult.stringValue(inst1.attribute(i));
end;



procedure TChoice.ChooseSelect(Sender: TObject);
begin
Yes.Enabled := true;                      //выбранное значение можно утвердить
end;

end.