Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Автор: 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;

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

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011