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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Josh

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;

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

{/codecitation}

Добавить комментарий