как сделать что бы работала быстрее

[luffi]

вот у меня есть такая програма-делается простые комбинации(сочетания) без повторений и выводит их. как мне зделать чтобы работало быстрее. просто мне нада комбинацию с 21 до 45 там выходит 3 773 655 750 150. слишком уж долго ждать пока оно его переберёт всё

[Serge_Bliznykov]

во-первых, раз уж Вы говорите про сочетания, правильнее будет сказать "выбрать из 45 по 21".

а во-вторых, Вы, наверное, шутить изволите!
если записывать все полученные сочетания в файл,
то получается:
3773655750150*23 - разделим полученное число на (1024*1024*1024*1024) чтобы получить размер в ТБ.
получаем:
3773655750150*23/(1024*1024*1024*1024) = 78.9 ТерраБайт.

У Вас есть куда записать 78 Террабайтный файл?!

дальше. Ваш алгоритм, если не сохранять результаты (вообще не сохранять).
генерит примерно 1307504 комбинаций за 2.97 секунды (на моём стареньком компьютере, правда).
Ну пусть Вам удасться ускорить процесс на два порядка (т.е. в сто раз), хотя мне и такое ускорение кажется маловероятным, с учётом того, что надо результаты всё таки сохранять.
тогда получаем, что для перебора потребуется примерно 85717 секунд ~~ 23 часа
т.е. генерить будете сутки. Это достаточно быстро?!

[luffi]

да 78тб я не найду. ну а хоть както прискорть програму можна, ну для меньших собетаний?

[Serge_Bliznykov]

ускорить можно.
выкиньте визуальный TMemo
и используйте вместо него невизуальный TStringList

p.s. при указании размера выборки (первое число) больше 9 строчка вывода у Вас получается ошибочная! Попробуйте, например, 15 из 15