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

Советы » Записи, индексы, поля, закладки » Копирование записи из одной таблицы в другую

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

;

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

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com