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

Как добавить копию текущей записи


procedure AppendCurrent(Dataset:Tdataset);
var
  aField: Variant ;
  i: Integer ;
begin
  // Создаём массив
  aField := VarArrayCreate([0,DataSet.Fieldcount-1],VarVariant);

  // считываем значения в массив
  for i := 0 to (DataSet.Fieldcount-1) do
    aField[i] := DataSet.fields[i].Value ;

  DataSet.Append ;

  // помещаем значения массива в новую запись
  for i := 0 to (DataSet.Fieldcount-1) do
    DataSet.fields[i].Value := aField[i] ;
end;

           


Полный контроль Вашего транспорта - мониторинг транспорта. Мониторинг Интернета. . Не умеете говорить на английском: курсы английского. . Кровля от А до Я - фальцевая кровля. . Ковры в Москве - ковры с ворсом. .


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

Copyright © LSD Software 2006 - 2011