Копирование данных из одной таблицы в другую

[xxbesoxx]

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

Serge_Bliznykov, спасибо большое!!!
Строки копируются и это радует!
Единственная проблема состоит в том, чтобы увидеть скопированную строку нужно заново перезапустить программу. В режиме реального времени программа не отображается! Может это как-то можно решить?
И данный способ не передает русские символы!!!

А если так ?

procedure TForm1.Button1Click(Sender: TObject);
begin
   if MessageBox(0,PChar('Вы действительно хотите скопировать этот запись'),
      PChar('Предупреждения'),
        MB_ICONQUESTION+MB_OKCANCEL+MB_DEFBUTTON2) = IDOK then
        begin
         ADOQuery2.insert;
          ADOQuery2.FieldByName('number').AsString :=  ADOQuery1.FieldByName('number').AsString ;
          ADOQuery2.FieldByName('input_quant').AsString :=  ADOQuery1.FieldByName('input_quant').AsString;
         ADOQuery2.Post;
        end;
end;

[Streb]

xxbesoxx, спасибо большое! Все работает идеально!!!

[xxbesoxx]

Streb Пожалуйста, Удачного вам дня