[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;

[NumLock]

имхо, правильней использовать событие OnDataChange у TDataSource:

Код:

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Memo1.Text:=Table1.Fields[0].AsString;
end;