Как создать таблицу без применения 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


 

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


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