Копирование записи из одной таблицы в другую - Базы Данных - Не стандартные примеры на Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Алгоритмы [95]

API [111]

Pascal [153]

Базы Данных [173]

BDE [0]

Интернет [0]

Мультимедия [0]

Аппаратное обеспечение [0]

Операционная система [0]

Компоненты [0]

Классы [0]

OLE+ [0]

Миграция [0]

Ошибки [0]

DLL [0]

Продукты третьих фирм [0]

Разное [0]

События [0]

Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

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

procedure TTableRecordCopy(Source, Destination: TTable);

{ПРЕДПОЛОЖЕНИЕ: Обе таблицы имеют курсор в нужной строке и

компоненты Table ссылаются на таблицы с совместимыми величинами.}

var

i, lCount: Integer;

begin

lCount := Source.FieldCount;

for i := 0 to lCount - 1 do

if (not Source.Fields[i].IsNull) and (Source.Fields[i].CanModify) then

Destination.FieldByName(Source.Fields[i].FieldName).Assign(Source.Fields[i]);

end;

Это работает для всех типов полей.

Josh

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)

Просмотров: 1266 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума