Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 12.07.2011, 21:33
Re3oFFer Re3oFFer вне форума
Прохожий
 
Регистрация: 29.06.2011
Сообщения: 17
Репутация: 10
По умолчанию For to do

Привет всем вот код:
Код HTML:
procedure TForm3.Button2Click(Sender: TObject); begin with Form3.ADOQuery1 do begin close; SQL.Clear; SQL.Add('Update otdel set otdel="'+ Edit1.Text +'"'); SQL.Add(' where otdel = "' + ComboBox1.Text+'"'); ExecSQL; SQL.Clear; SQL.Add('Select * from otdel'); open; ComboBox1.Items.Clear; ComboBox1.Items.Append(ADOQuery1.FieldByName('otdel').AsString); ADOQuery1.Next; end; end;

на эту кнопку делается изменение данных в комбобох. Данные в комбобох подгружены через таблицу в бд. Когда я изменяю данные в комбобох, но они изменяются только после выключения приложение.И я тогда прописал вот этот код. А мне сказали вроде всё правильно но нужно весь код сделать через оператор for как это сделать ёмаё??? =)))

Код HTML:
ComboBox1.Items.Clear; ComboBox1.Items.Append(ADOQuery1.FieldByName('otdel').AsString); ADOQuery1.Next; end;
Ответить с цитированием
  #2  
Старый 13.07.2011, 13:51
Аватар для Viajero
Viajero Viajero вне форума
Активный
 
Регистрация: 14.06.2011
Адрес: РБ
Сообщения: 214
Версия Delphi: Delphi 7 FB 2.5
Репутация: 5849
По умолчанию

По моему правильней будет не for а while
Код:
while not eof do
  begin
  ............ твоя конструкция
  end

Последний раз редактировалось Viajero, 13.07.2011 в 13:53.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:16.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025