|
|
|
|
Delphi 1
Копирование записи из одной таблицы в другую
|
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;
|
Это работает для всех типов полей.
Josh [000487]
|
|
|
|
|