Помогите в небольшой оптимизации

[CraZZy RabbIt]

я так понял тебе нужно создать свою функцию,посмотри тут -
http://softhelp.ru/delphi/funprocedure/index.php

[Anatole]

Лично я бы сформировал из дней недели массив и подставлял в соответствующих местах по индексу. Это даёт возможность организовать цикл.
ну и объявления типа: var t1,t2,...t35: string;
заменил на : var t: array[1..35] of string;
тогда вместо 35 операторов для записи-чтения я поставил цикл с одним оператором.
так кажется меньше писанины. Советую пересмотреть свою организацию данных, переменных и т.п. с точки зрения использования массивов и циклов. Таким образом можно сократить количество строк кода (в вашем случае приблизительно на порядок) и, соответственно, ошибок

[ZBEP]

Всем спасидо, 1 оптимизация прошла успешно))