Карта сайтаСсылкиКонтакты

Как создать таблицу без применения SQL

PDF Печать
Статьи

Как создать таблицу без применения SQL или Database Desktop

TTable имеет способность создавать таблицы Paradox без применения SQL.


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; 

По материалам http://delphi.3000.com


 

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


Защитный код
Обновить