//set filters for table 1 table1.FIND('-'); max := table1.COUNTAPPROX; REPEAT BEGIN x := ROUND((i/max)*10000,1); Dialog_wait.UPDATE(1, x); table2.SETFILTER(...); table2.SETFILTER(...); table2.SETFILTER(...); IF (table2.FIND('-')) THEN BEGIN REPEAT BEGIN //Do Export to Excel END UNTIL table2.NEXT <= 0; END; i := i+1; END UNTIL table1.NEXT <= 0;
Comments
it crashes sometimes on 50% oder less
memory usage of fin.exe always increases > 100mb
200 colums
It runs now very fast and without any problems