Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты!
Подскажите что надо исправить! Удаляю таблицу из списка комбобокс, таблица удаляется, но все равно она остается в списке комбобокса, если закрываю форму , а потом снова захожу на неё , то естественно её нету в списке.Пытался очищать комбобокс, а потом сразу заполнить но че то не получается. Вот код, что исправить???

 
procedure TForm2.sButton4Click(Sender: TObject);
  var
 x: TStrings;
 i: integer;
begin
 ADOCommand2.CommandText:='DROP TABLE ' +sComboBox2.Items[sComboBox2.ItemIndex];
 ADOCommand2.Execute;
  begin
ShowMessage('Группа ' +sComboBox2.Text + ' удалена из базы данных');
   exit;
begin
scombobox2.ClearSelection;
scombobox2.Clear;
begin
 x:=TstringList.Create;
 ADOConnection3.GetTableNames(x,false);
 for i := 0 to x.Count - 1 do
 begin
   sComboBox2.Items.Add(x.Strings[i]);
 end;
 sComboBox2.ItemIndex:=-1;
 x.Free;
end;
end;
 end;
  end;

Вопрос задал: Анучин (статус: Посетитель) Вопрос отправлен: 7 июня 2011, 03:56 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Совершенно кривой индусский код! Хотя, я и покруче видал. Отформатированный он выглядит вот так:

procedure TForm2.sButton4Click(Sender: TObject);
var
  x: TStrings;
  i: integer;
begin
  ADOCommand2.CommandText:='DROP TABLE ' +sComboBox2.Items[sComboBox2.ItemIndex];
  ADOCommand2.Execute;
 
  begin // <--- нахрена?
    ShowMessage('Группа ' +sComboBox2.Text + ' удалена из базы данных');
    exit; // <--- советую почитать хэлп по этому оператору!
 
    begin // <--- нахрена?
      scombobox2.ClearSelection;
      scombobox2.Clear;
 
      begin // <--- нахрена?
        x:=TstringList.Create;
        ADOConnection3.GetTableNames(x,false);
 
        for i := 0 to x.Count - 1 do
          begin // <--- нахрена?
            sComboBox2.Items.Add(x.Strings[i]);
          end;  // <--- нахрена?
 
        sComboBox2.ItemIndex:=-1;
        x.Free;
      end; // <--- нахрена?
    end; // <--- нахрена?
  end; // <--- нахрена?
end;

procedure TForm2.sButton4Click(Sender: TObject);
begin
  ADOCommand2.CommandText:='DROP TABLE ' +sComboBox2.Items[sComboBox2.ItemIndex];
  ADOCommand2.Execute;
  ShowMessage('Группа ' +sComboBox2.Text + ' удалена из базы данных');
  ADOConnection3.GetTableNames(sComboBox2.Items, false);
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 7 июня 2011, 09:40 Оценка за ответ: 5 Комментарий к оценке: Спасибо, дёйствительно ваш код покрасивее будет, да и еще работает)))

Мини-форум вопроса

7 июня 2011, 18:01: Статус вопроса изменён на решённый (изменил автор вопроса — Анучин)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.