[brutalis]

для вывода данных типа memo(dbmemo) из БД использую

Код:

  procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);  //запись содержимого поля дбмемо в мемо
begin
Memo1.Lines.Text := (IBQuery1.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;

  procedure TForm1.IBQuery2AfterScroll(DataSet: TDataSet);   //запись содержимого поля дбмемо в мемо
begin
Memo1.Lines.Text := (IBQuery2.FieldByName('TEXT_LAWS') as TBlobField).Value;
end;

имеется несколько таблиц. данный кусок кода работает только для одной. подскажите как сделать так чтобы в поле memo отображались данные выбранной таблицы

помогло:

Код:

Memo1.Lines.Text := IBQuery2.FieldByName('TEXT_LAWS').AsString;