[gebs]

Сообщение от Страдалецъ

Ну скорее всего на форме редактирования нужен компонент TMemo и тогда присвоение будет выглядеть примерно так:

Код:

 
Form2.Memo1.Text := dbstring;

Спасибо, но видимо уже разабрадся сам:

Код:

procedure TForm1.N7Click(Sender: TObject);
begin
Form_redznn.Edit1.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('name').AsString;
Form_redznn.DBLookupComboboxEh1.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('addr').AsString;
Form_redznn.Edit2.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('dom').AsString;
Form_redznn.Edit3.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('kv').AsString;
Form_redznn.Edit4.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('tel1').AsString;
Form_redznn.Edit5.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('tel2').AsString;
Form_redznn.DBLookupComboboxEh2.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('harneispr').AsString;
Form_redznn.Edit6.Text := DBGridEh_znn.DataSource.DataSet.FieldByName('ktoprinyal').AsString;
Form_redznn.DateTimePicker1.DateTime := DBGridEh_znn.DataSource.DataSet.FieldByName('datapr').AsDatetime;
Form_redznn.AdvDBDateTimePicker2.DateTime := DBGridEh_znn.DataSource.DataSet.FieldByName('datapl').AsDatetime;

Form_redznn.Showmodal;
end;

Пока тестирую.