[denzenit]

Вместо этого участка кода попробуй использовать такой вариант в одну строку

Код:

dm.zapros.SQL.Text:= 'запрос'+inttostr(i);

Да и здесь можно использовать одну строку, потому что значение не изменяются

Код:

WorkBook.SaveAs(Tempkp+'\файл'+inttostr(i)+' от '+dt+'.csv',6);

Прошу прощения, я, видимо, вас слегка запутал написав

Имеется следующий цикл, который распределяет полученную информацию из запроса, который соответствует i

Имелось ввиду, что файлы создаются так:

Код:

case i of
          1: WorkBook.SaveAs(Tempkp+'\файл_M60 от '+dt+'.csv',6);
          2: WorkBook.SaveAs(Tempkp+'\M60_krygl от '+dt+'.csv',6);
          3: WorkBook.SaveAs(Tempkp+'\M90_s1 от '+dt+'.csv',6);
          4: WorkBook.SaveAs(Tempkp+'\M90_s2 от '+dt+'.csv',6);
          5: WorkBook.SaveAs(Tempkp+'\ALL от '+dt+'.csv',6);

Т.е i прямо влияет на то, какое будет название файла и он не должен там вообще фигурировать в названии.

Можно просто написать

Код:

Sheet.Cells[r,1].Value := dm.zapros.FieldByName('path').AsString;
Sheet.Cells[r,2].Value := dm.zapros.FieldByName('kol').AsInteger;

Тут вы правы, я косякнул, не подумал.

Код:

    if i = 3 then
      dm.aqLoc.SQL.Text := 'SELECT path,kol,E,F,G,' + ' switch(right(path,2)=' + quotedstr('rh') +
       ',1,right(path,2)=' + quotedstr('iz') + ',2,right(path,2)=' + quotedstr('av') + ',3, ' + ' right(path,2)=' + quotedstr('lv') +
       ',4) as srt FROM Dallan where typ=' + inttostr(i) + ' ORDER BY H, E DESC, switch(right(path,2)=' + quotedstr('rh') +
       ',1,right(path,2)=' + quotedstr('iz') + ',2,right(path,2)=' + quotedstr('av') + ',3, ' + ' right(path,2)=' + quotedstr('lv') + ',4),path'
    else if i = 1 then
      dm.aqLoc.SQL.Text := 'SELECT * FROM Dallan where typ=' + inttostr(i) + ' or typ=99 ORDER BY typ,F,E,G,path'
    else if (i = 5) then
      dm.aqLoc.SQL.Text := 'SELECT * FROM (SELECT path,kol,e,f,g,h,typ, iif(typ=5,1,iif(typ=6,3,iif(typ=7,2,iif(typ=8,4,iif(typ=9,6,5))))) as tt '
      + 'FROM Dallan where typ>=5 and typ<=10) main ORDER BY tt,F,E,G,path,H'          //if i in [5,6,9,10]
          //then dm.aqLoc.SQL.Text:='SELECT * FROM Dallan where typ='+inttostr(i)+' ORDER BY F,E,path'

Вот тут я сейчас привёл прямой пример как в зависимости от i меняется запрос.

Пример: когда у нас i становится равно 3, то мы выполняем запрос, который я вставил выше в if i = 3 then

Далее идёт проверка на i и проставления значений в определённых ячейках( покажу на вашем примере:

Код:

03: begin
                  Sheet.Cells[r,4].Value:=dm.zapros.FieldByName('E').AsInteger;
                end;

Далее уже в зависимости от i выбирается название файла. В нашем случае будет

Код:

3: WorkBook.SaveAs(Tempkp+'\M90_s1 от '+dt+'.csv',6);

В принципе вы дали мне отличный совет с case в цикле while, когда меня посетила мысль сделать так, то я посчитал что слишком заморочено и не стал так делать.

Мне посоветовали методы и запросы засунуть в объекты, которые в свою очередь засунуть в массив. Не думаю, что имеет смысл настолько сильно заморачиваться, да и не пойму как это организовать.

И спасибо вам!!!!