Как заполнить 4 DBEdit данными?

@botaniq09 · Регистрация: 20.06.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Нужна помощь.
Есть 4 DBEdit. Они соединены с Oracle таблицей. В которой по одному первичному ключу хранятся 4 записи. Их необходимо вывести одновременно в 4 DBEdit.

@DenProx · 24.06.2010, 10:29

не уверен, но попробуйте так:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button3Click(Sender: TObject);
begin
DataModule2.OQuery.Execute;
while not DataModule2.OQuery.Eof do
begin
form1.Edit1.Text:=DataModule2.OQuery.FieldAsString ('Answer');
DataModule2.OQuery.next;
end;
DataModule2.OQuery.Close;
end;

@harmless · 24.06.2010, 11:20

Что-то я смысла в цикле не улавливаю в данном примере. Сразу на последнюю запись перейти достаточно... Или еще какие манипуляции будут производиться?

@Lord_Voodoo · 24.06.2010, 11:27

botaniq09, как называется пакет компонентов, который вы используете? сразу порекомендую ODAC - проверренные собственным опытом отличные компоненты (мое ИМХО)...
а еще DataModule2.OQuery.Execute; - вы уверены, что в данном случае не Open надо использовать или его тоже нет в классах дао?

@botaniq09 · 24.06.2010, 23:12 **[ТС]**

спасибо всем за подсказку.
я решил задачу так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TStart_test.test();
var
i,j: Integer;
begin
DataModule2.OQuery.SQL.Add('select a.* from answer a where a.id_quest='+IntToStr(DataModule2.ODS_QuestID_QUEST.AsInteger));
DataModule2.OQuery.Execute;
j:=0;
while not  DataModule2.OQuery.Eof do
begin
 inc(j);
  mass[j]:=DataModule2.OQuery.Field('ID_Answer');
  otvet[j]:=DataModule2.OQuery.Field('Correct_Answer');
  for i:=0 to ComponentCount-1 do
    begin
    if Components[i].Name = 'Edit' + IntToStr(j) then
      begin
        (Components[i] as TEdit).Text := DataModule2.OQuery.Field('Answer');
      end;
    end;
  DataModule2.OQuery.Next;
     end;
DataModule2.OQuery.Close;
DataModule2.OQuery.Clear;
DataModule2.ODS_Quest.Next;
end;

Новые блоги и статьи Все статьи Все блоги /
сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .	сукцессия 41 anaschu 24.07.2026 Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS \| Раздел: Прикладная математика / Численные методы Кратко. . .
сукцессия 40. Ансамблевая кластерная параметризаци, часть 1. anaschu 24.07.2026 Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем Полевые заметки о двухнедельной совместной работе. . .	Теория всего 12. ВГК на планете в стратегической игре "терра" anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .

@botaniq09 2 / 2 / 0 Регистрация: 20.06.2010 Сообщений: 111

	Oracle Как заполнить 4 DBEdit данными? 20.06.2010, 13:51. Показов 3404. Ответов 23 Метки нет (Все метки) Здравствуйте! Нужна помощь. Есть 4 DBEdit. Они соединены с Oracle таблицей. В которой по одному первичному ключу хранятся 4 записи. Их необходимо вывести одновременно в 4 DBEdit. 0

@harmless 151 / 151 / 3 Регистрация: 05.05.2010 Сообщений: 570
	24.06.2010, 11:20
	Что-то я смысла в цикле не улавливаю в данном примере. Сразу на последнюю запись перейти достаточно... Или еще какие манипуляции будут производиться? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	24.06.2010, 11:27
	botaniq09, как называется пакет компонентов, который вы используете? сразу порекомендую ODAC - проверренные собственным опытом отличные компоненты (мое ИМХО)... а еще DataModule2.OQuery.Execute; - вы уверены, что в данном случае не Open надо использовать или его тоже нет в классах дао? 0