procedureTTableRecordCopy(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
;
Это работает для всех типов полей.