Курсовой проект групп 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.