Курсовая работа: Программа–конструктор для построения МП–транслятора по его параметрам с последующей проверкой задаваемых пользователем цепочек
end;
end
else
if (y>0) and (x=SymbNum+1) then begin
changeGood(y1,y2);
if pc1.ActivePageIndex=0 then begin
tsAdd.Hide;
tsAdd.Show;
end;
end;
end;
end;
end;
procedure TMainPr.ChangeGood(i, j: integer);
begin
if MessageDlg('Выдействительно хотите изменить состояние ячейки',mtConfirmation,[mbOk,mbCancel],0)=mrOk
then mp.SetGood(i,j);
PaintMP;
end;
procedure TMainPr.alSaveExecute(Sender: TObject);
var tmp:Shortstring;
begin
if ready then begin
TMP := mmNotes.text;
sd1.initialdir:=initialdir+SaveDir;
if sd1.execute then begin
mp.savetofile(tmp,sd1.filename);
end;
end;