ДЕЛФИ

[Jannet12345]

Здравствуйте. Помогите пожалуйста. Пишу дипломную, не могу реализовать кнопку Далее.Нужно, чтобы при нажатии кнопки далее менялись вопросы в анкете (edit). Вопросы загружать из БД.

[Stilet]

Как вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
 With Query do begin
  if FindNext then begin
   Label1.Caption:=FieldByName('Вопрос1').AsString;
   Label2.Caption:=FieldByName('Вопрос2').AsString;
   Label3.Caption:=FieldByName('Вопрос3').AsString;
  end else begin
  ShowMessage('Тест окончен');
  end;
 end;
end;

Где:
Query - Компонент доступа к базе
Label - То, куда вопросы из полей выводятся.

Идея ясна?

[type_Oleg]

Конкретнее, пожалуйста. Что именно надо?
Чтобы в Edit1 последовательно отображались вопросы? Типа - тык- первый вопрос, тык - второй вопрос, и т.д.
А то можно подумать, что вообще не можете реализовать кнопку. Что ее реализовать, её сама Дельфы реализует, вам надо только описать обработчик этого " тыка " ( процедуру TForm1.Button1Click )

Получается типа:
Здравствуйте, пишу статью на соискание Нобелевской премии по физике, но не могу понять закон Ньютона ..

PS Stilet, только Jannet12345 надо в Edit , а не в Label