[Sentyabrina]

Процедуры расположены в порядке вывода форм. Выдаёт ошибку редактирования таблицы 4. Попыталась поставить условия для смены состояния таблицы, но запуталась, в том, где они нужны, ибо 3ий день с делфи знакома. Помогите пожалуйста=)

Код:

procedure TForm1.Button9Click(Sender: TObject);
begin
 Form13.ShowModal;
end;

procedure TForm13.RadioButton3Click(Sender: TObject);

var i,n:integer;
begin
  Form14.ShowModal;
  if DataModule1.DataSource4.State=dsBrowse then
    DataModule1.ADOTable4.Edit;
 begin
      DataModule1.ADOTable1.DisableControls;
DataModule1.ADOTable1.Last;
  DataModule1.ADOTable1.First;
    n:=DataModule1.ADOTable1.RecordCount;
      if n<>0 then
      For i:=1 to n do begin
  if (DataModule1.ADOTable1.Fields[1].AsString=Form14.DBComboBox5.Text)
    and (not Eof) then DataModule1.ADOTable1.Delete;
 end;
   DataModule1.ADOTable1.EnableControls;
 end;
    if DataModule1.DataSource4.State=dsBrowse then
    DataModule1.ADOTable4.Edit;
DataModule1.ADOTable4.Delete;
DataModule1.ADOTable4.Post;
end;

procedure TForm14.Button1Click(Sender: TObject);
 begin
 if DataModule1.DataSource4.State=dsBrowse then
    DataModule1.ADOTable4.Edit;
DataModule1.ADOTable4.Post;
if DataModule1.DataSource4.State=dsBrowse then
    DataModule1.ADOTable4.Edit;
 end;

Админ: Еще раз напоминаю про использовани етега CODE! При рецедиве последуют санкции. Читаем правила!