[Botaniq]

Здравствуйте!
Возникла проблема при выводе в Label одного значения из запроса.
БД Oracle.
На данную форму в Label не выводится и выдает ошибку ''Access violation....'', а на другую форму выводит без ошибки.

Код:

procedure TStart_test.Button4Click(Sender: TObject);
var
r,i: integer;
begin
DataModule2.OracleQuery2.Next;

r:=DataModule2.OracleQuery2.Field('id_quest');
k:=0;

DataModule2.OQuery.SQL.Add('select a.*,b.quest from answer a, quest b where a.id_quest='+IntToStr(r)+'and b.id_test='+IntToStr(form1.idtest)+'and a.id_quest=b.id_quest');
DataModule2.OQuery.Execute;

Start_test.Label1.Caption:=DataModule2.OQuery.Field('quest');


mass[k]:=DataModule2.OQuery.Field('id_quest');

while not DataModule2.OQuery.Eof do

   begin
 inc(k);
  for i:=0 to ComponentCount-1 do
    begin
    if Components[i].Name = 'Edit' + IntToStr(k) then
      begin
        (Components[i] as TEdit).Text := DataModule2.OQuery.Field('Answer');
      end;

   end;


 DataModule2.OQuery.Next;


end;

DataModule2.OQuery.Close;
DataModule2.OQuery.Clear;
end;

[Marvel]

попробуй так:

Код:

Start_test.Label1.Caption:=DataModule2.OQuery.FieldByName('quest').AsString;

и ещё надо посмотреть, создаётся ли форма Start_test, до попытки записи чего-то в Label1

[Botaniq]

Такого свойства в DAO нет, только то что написал в примере.
В showmessage выводит. А на форму нет

[Marvel]

значит что-то с формой Start_test, я думаю она просто не создана в момент вывода текста на Label1

[Botaniq]

как проверить??

[Marvel]

ну это вначале надо знать как форма создается, динамически или статически, нажмите Ctrl+Shift+F11 в проекте, там выскочит окно, вкладка Forms, если форма Start_test находиться в Available forms, значит она создаётся динамически, точнее вы сами должны её создавать:

Код:

with TStart_test.Create(Self) do
try
  ShowModal;
finally
  Free;
end;

попробуйте перенести её в Auto-create forms (если её тут конечно нету, если есть, то нужно на сам проект смотреть)

[Botaniq]

форма находится в auto create

[Kapitoshka438]

Код:

Label1.Caption:=DataModule2.OQuery.Field('quest');

[Kapitoshka438]

Скорее всего, у вас кроме модуля Start_test, еще где-то повторно объявлена переменная Start_test

Код:

var
  Start_test: TStart_test

Скорее всего в файле проекта.

[Botaniq]

Сообщение от Kapitoshka438

Код:

Label1.Caption:=DataModule2.OQuery.Field('quest');

Спасибо, Ваш совет помог))))