Советы по Delphi

       

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


procedure TTableRecordCopy(Source, Destination: TTable);
{ПРЕДПОЛОЖЕНИЕ: Обе таблицы имеют курсор в нужной строке икомпоненты Table ссылаются на таблицы с совместимыми величинами.}vari, lCount: Integer;beginlCount := Source.FieldCount;for i := 0 to lCount - 1 doif (not Source.Fields[i].IsNull) and (Source.Fields[i].CanModify) thenDestination.FieldByName(Source.Fields[i].FieldName).Assign(Source.Fields[i]);end;

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

Josh [000487]



Содержание раздела