Export table rows

[sx2008]

Delphi-Quellcode:

const BSIZE = 200;

....
CSVExport.Separator := ';'; // moved outside of the loop because we need so set the separator only once
for i := 0 to (tab1.RecordCount div BSIZE) + 1 do
begin
  tab1.Filtered := False;
  // note: lower margin is included and upper margin is excluded
  // 0..199 (200 records)
  // 200..399 (200 records)
  tab1.Filter := 'Cislo_ID >='+ QuotedStr(i*BSIZE) + ' AND Cislo_ID < '+ QuotedStr((i+1)*BSIZE);
  tab1.Filtered := True;
  if tab1.IsEmpty then
    break; // stop export if there are no more records
  CSVExport.FileName := ExtractFilePath(ParamStr(0))+ 'upload/export'+IntToStr(i+1)+'.csv';
  CSVExport.ExportGrid;
end;