Галактика в вопросах и ответах

Код: Выделить всё

var
NFile:string;
           If Getfirst GroupMC where ((KatMC.cGroupMC==GroupMC.Nrec))=TsOk
             {
/*                Case Substr(GroupMC.KOD,1,3) of
                  '101' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '01');
                  '102' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '02');
                  '103' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '03');
                  '104' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '04');
                  '105' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '05');
                  '108' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '08');
                  '110' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '10');
                  '111' :  TxoBodyAddSchet(hTxo, wFlKau_Mode0, '210', '11');
                End;
*/
     NFile:=StartPathName+'Sootv\ExAttr.stv';
     If aFile.OpenFile(NFile, stOpenRead)=True 
      {
        Do
         {
          aFile.Readln(StrF);
          Znach:=Trim(SubStr(StrF, 1, Instr(';',StrF)-1));
          If Substr(GroupMC.KOD,1,3)=Trim(Znach)
          { 
           Zamen:=Trim(SubStr(StrF, Instr(';',StrF)+1,Length(StrF))); 
           If Instr('.',Zamen)>0
            {
             ZamenS :=CodPlan+Trim(SubStr(Zamen, 1, Instr('.',Zamen)-1));
             ZamenSS:=Trim(SubStr(Zamen, Instr('.',Zamen)+1,Length(Zamen)));
            }
           Else 
            {
             ZamenS :=CodPlan+Trim(Zamen);
             ZamenSS:='';
            }
           TxoBodyAddSchet(hTxo, wFlKau_Mode0, ZamenS, ZamenSS)
           }   
         }While not aFile.EOF
        aFile.Close;
      }


             } 

Код: Выделить всё

File aFile;