[uroksan]

Ребят помогите пожалуйста!!!!
занимаюсь форматированием файлов из .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;

Модератор:
тэги, тэги и еще раз тэги...
устал уже напоминать, буду удалять темы/сообщения