Delphi-Quellcode:
x := 0;
repeat;
y := Random(200);
for i := y tab1.RecordCount -1 do
begin
tab1.Filtered := False;
tab1.Filter := 'Cislo_ID > '+ QuotedStr(x) + ' AND Cislo_ID < '+ QuotedStr(y);
tab1.Filtered := True;
CSVExport.FileName := ExtractFilePath(ParamStr(0))+ 'upload/export'+IntToStr(x+1)+'.csv';
CSVExport.Separator := ';';
CSVExport.ExportGrid;
until x = 0;
export1.csv = 200 lines (0 to 200)
export2.csv = 200 lines (201 to 400)
export3.csv = 200 lines (401 to 600)
export4.csv = x lines (601 to ??)