Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ Записи, индексы, поля, закладки \ Дубликат Paradox или dBase записи

Дубликат Paradox или dBase записи

Существует ли какое-либо простое решение для Delphi-приложения, позволяющее прочесть запись из первого поля таблицы Paradox (первичный ключ) и потом обратно добавить ее в таблицу в виде новой записи?

Вот одно "кривое" решение:

procedure TForm1.Button1Click(Sender: TObject);
var
  p : CURProps;
begin
  Table2.Insert;
  DbiGetCursorProps(Table1.Handle,p);
  Move(Table1.ActiveBuffer^,Table2.ActiveBuffer^,p.iRecBufSize);
  Table2.FieldByName('ID').AsInteger := Table1.FieldByName('ID').AsInteger + 1;
  Table2.Post;
end;

...это работает на том "основании", что как Table1, так и Table2 ссылаются на один и тот же табличный файл. Вы могли бы осуществить это и с единственным TTable, если сохраните содержание в активном буфере (ActiveBuffer).

Название: Дубликат Paradox или dBase записи
Дата публикации: 2004-03-19 (2565 Прочтено)

 
 

 

Page generation 0.045 seconds