- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
procedure info_();
var
i:integer;
ActivityCategory,stroka,strok,stroka_sopr,http1100,http_sopr,tag,tag_sopr,until_date,date_:string;
f1100,f_sopr,inf:textfile;
begin //главный
clear();
if form1.radioGroup1.ItemIndex=0 then begin
http1100:='\\server1\Отдел 1\Program Files\Prof\profiki\1100\'+m+'.smc';
http_sopr:='\\server1\Отдел 1\Program Files\prof\profiki\сопроводительное\'+m+'.smc';
end;
if form1.radioGroup1.ItemIndex=1 then begin
http1100:='\\server1\Отдел 1\Program Files\Prof\banki\1100\'+m+'.smc';
http_sopr:='\\server1\Отдел 1\Program Files\prof\banki\сопроводительное\'+m+'.smc';
end;
if form1.radioGroup1.ItemIndex=2 then begin
http1100:='\\server1\Отдел 1\Program Files\Prof\YK\1100\'+m+'.smc';
http_sopr:='\\server1\Отдел 1\Program Files\prof\YK\сопроводительное\'+m+'.smc';
end;
if form1.radioGroup1.ItemIndex=3 then begin
http1100:='\\server1\Отдел 1\Program Files\Prof\NPF\1100\'+m+'.smc';
http_sopr:='\\server1\Отдел 1\Program Files\prof\NPF\сопроводительное\'+m+'.smc';
end;
if form1.radioGroup1.ItemIndex=4 then begin
http1100:='\\server1\Отдел 1\Program Files\Prof\REGISTRATOR\1100\'+m+'.smc';
http_sopr:='\\server1\Отдел 1\Program Files\prof\REGISTRATOR\сопроводительное\'+m+'.smc';
end;
Пытался перенести в другую папку программу, после чего она по сути перестала работать, ругаясь ошибкой 63. Нашел ее исходники и увидел ЭТО... это лишь 5-10% всей процедуры, которая мало того, что ищет XML-файлы по определенному пути, так еще и парсит их...