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

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
;

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

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

• BLOBFIELD как BITMAP
• Interbase BLOB-поля
• Загрузка изображений в Blob-поля