|
#1
|
|||
|
|||
форматирование
Ребят помогите пожалуйста!!!!
занимаюсь форматированием файлов из .ifh в .ak1 блин вроде все правильно сделал но че то не работает Код:
FileSelectDialog.FillTree('IFH'); If FileSelectDialog.ShowModal <> mrOk Then Exit; // if NPrib=1 // then // sw:=0; begin assignfile(f,FileSelectDialog.FileName); reset(f); assignfile(fb,'.ak1'); rewrite(fb,'1024'); assignfile(fe,'.if'); rewrite(fe); closefile(fe); closefile(fb); closefile(f); end; then begin assignfile(f,FNam); reset(f); assignfile(fak,'.ak1'); rewrite(fak); assignfile(fe,'.if'); rewrite(fe); //PreobrFileAKS(Kan,s); closefile(fak); closefile(fe); closefile(f); // goto 1; end; // if (NPrib=3) {and (Ext='.IFH')} then begin assignfile(f,FileSelectDialog.FileName); reset(f); assignfile(fak,'.ak2'); rewrite(fak); assignfile(fe,'.if'); rewrite(fe); // PreobrFileAKS2(Kan,s); closefile(fak); closefile(fe); closefile(f); //goto 1; end; //if (NPrib=4) {and (Ext='.IFA')} then begin assignfile(f,FNam); reset(f); assignfile(fak,'.ak0'); rewrite(fak); assignfile(fe,'.if'); rewrite(fe); // PreobrFileAK(Kan,s); closefile(fe); closefile(fak); closefile(f); //goto 1; end; /// if (NPrib=5) {and (Ext='.IFA')} then begin assignfile(f,FNam); reset(f); assignfile(ak,'.akp'); rewrite(ak); assignfile(fs,'.is'); rewrite(fs); // PreobrFileAKS(Kan,s); closefile(ak); closefile(fs); closefile(f); // FName:=Dir+Name+'.akp'; // goto 1; end; end; Модератор: тэги, тэги и еще раз тэги... устал уже напоминать, буду удалять темы/сообщения |
#2
|
||||
|
||||
А что именно не работает, какая ошибка вылазит. Конкретнее пожалуйста.
Хорошо написанная программа не требует документации ICQ 9-184-668. |
#3
|
||||
|
||||
А в чем проблема, то?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |