[denzenit]

Добрый день. Имеется цикл, который при каждой итерации проставляет к значению SQL букву.
1 итерация - A
2 итерация - B
3 итерация - C и т.д

Алфавит сделал не через массив, просто засунул в переменную и суть проста

Код:

1 2 3 4 5

//запрос for j  := 1 to dm.aqPF.RecordCount do begin   r := DM.aqPF.FIELDBYNAME('zak_nm').AsString  + '_'  + copy(word, j, 1); //word содержит алфавит вида 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' end;

Но я быстро столкнулся с тем, что после того как заканчивается алфавит, то проставления не происходит.
Мне необходимо, чтобы после того как итерация с буквой Z прошла - в новой итерации уже проставлять не по кругу алфавит, а дублировать
значение после 26 итерации.
27 итерация - значение АА.
28 итерация - значение АВ
29 итерация - значение АС.
и т.д
Либо же дублирование:
27 итерация - значение АА.
28 итерация - значение BB
29 итерация - значение CC.
и т.д

Вот код процедуры

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

procedure clDBF.testproc;//Жарков 12.03.2021                 //Процедура нужна для проставления букв к заказам для заслонок. //При заходе клапанов данного вида необходимо сравнивать "А" клапанов и, при совпадении, заслонки на данные клапана разделять посредством букв var   i, id, k, j,kol: integer;   r, S, kkk, zakp, art, word, artsql, grpf, zak_nm, prd, mat, prdid: string; begin   //Здесь проставляем id для того, чтобы в запросах ниже мы смогли сгруппировать данные для проставления букв к продукции, prdid по сути играет роль признака.   dm.aqHelp3.SQL.Text  := 'SELECT prd, mat,name,nameprd,prdid,kol FROM mat';   dm.aqHelp3.Open;   for i  := 1 to dm.aqHelp3.RecordCount do   begin     prd  := DM.aqHelp3.FIELDBYNAME('prd').AsString;     mat  := DM.aqHelp3.FIELDBYNAME('mat').AsString;     prdid  := DM.aqHelp3.FIELDBYNAME('prdid').AsString;       dm.aqHelp2.SQL.TEXT  := 'UPDATE pf set prdid='+ quotedstr(prdid) +' WHERE lcode='+ quotedstr(mat) +' and prd='+ quotedstr(prd);     dm.aqHelp2.ExecSQL;     dm.aqHelp3.Next;   end;     word := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';   dm.aqHelp3.SQL.Text  := 'SELECT count(right(left(prd, 10), 4)) as prd1, right(left(prd, 10), 4) as kkk FROM pf'  +     ' WHERE right(Left(lcode, 6),6) in ('  + quotedstr('117E21')  + ','  + quotedstr('117E22')  + ','  + quotedstr('117E31')  + ','  + quotedstr('117E26')       + ','  + quotedstr('117E20')  + ','  + quotedstr('117?21')  + ','  + ''  + quotedstr('117E34')  + ','  + quotedstr('117E35')  + ','  + quotedstr('117900')  + ','  + quotedstr('117930')       + ')'  + ' group by right(left(prd, 10), 4)'  + ' HAVING count(right(left(prd,10),4)) > 1';   dm.aqHelp3.Open;//В начале смотрим если ли такая продукция и если такая продукция больше 1 в количестве, то дальше выполнение процедуры. грубо говоря, если запрос видит  клапанана с одинаковым размером, то в зависимости   // от размера идёт группировка (prd с 7 по 10 символ). Таким образом если будет 5 клапанов с размером 0900 (prd) и 5 клапанов с размеров 0800 (prd), то получится 2 группы 0900 и 0800.   //В RecordCount у нас будет заход два раза. Таким образом, мы сначала проставим буквы одной группе размеров, а затем второй и т.д     word := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';   for i  := 1 to dm.aqHelp3.RecordCount do   begin     kkk  := DM.aqHelp3.FIELDBYNAME('kkk').AsString;     dm.aqPF.SQL.Text  := 'SELECT prd,zak_nm, prdid FROM pf WHERE right(Left(lcode, 6),6) in ('  + quotedstr('117E21')  + ','  +       quotedstr('117E22')  + ','  + quotedstr('117E31')  + ','  + quotedstr('117E26')  + ','  + quotedstr('117?21')  + ','  + quotedstr('117E20')  + ','  + ''  + quotedstr('117E34')         + ','  + quotedstr('117E35')  + ','  + quotedstr('117900')  + ','  + quotedstr('117930')  + ') and right(left(prd, 10),4) = '  + quotedstr(kkk)+' GROUP BY prd,zak_nm, prdid';     dm.aqPF.Open;     for j  := 1 to dm.aqPF.RecordCount do     begin       zak_nm := DM.aqPF.FIELDBYNAME('zak_nm').AsString;       kkk  := DM.aqHelp3.FIELDBYNAME('kkk').AsString;       r := DM.aqPF.FIELDBYNAME('zak_nm').AsString  + '_'  + copy(word, j, 1);       prdid  := DM.aqPF.FIELDBYNAME('prdid').AsString;       dm.aqHelp2.SQL.Text  := 'UPDATE pf SET zak_nm= '  + quotedstr(r)  + 'WHERE prdid='+prdid+' AND right(left(lcode, 10), 4)='+ quotedstr(kkk);   //Благодаря запросу появляются файлы по типу 611_А, 611_В  и т.д       dm.aqHelp2.ExecSQL;       dm.aqPF.Next;     end;       dm.aqHelp3.Next;   end; end;

Сразу оговорюсь, я не прошу за меня всё написать. Я прошу подкинуть идею или пример или наводку куда копать и в каком направлении. Заранее спасибо

[denzenit]

Пока в голову пришла только функция

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.btn1Click(Sender: TObject); var   word, word1: string;   j: integer;   strok: string; begin   word := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';   j := StrToInt(Ed1.Text);   if j>26 then     begin      if (j mod 26) = 0 then      begin       strok := copy(word,j div 27,1) + copy(word,26,1);      end      else      begin        strok := copy(word,j div 27,1) + copy(word,j mod 26,1);      end;     end   else     begin       strok := copy(word,j,1);     end;     showmessage(strok);  end;

Но есть в ней один недостаток. Если уж J = 26, то мне выдаёт Z
Так же и если J=52, то выдаст AZ, должно BA. J=78 Выдаст BZ, Хотя должно CA.

Как с этим бороться - я не представляю да и непонятно как загуглить, хотя уверен, что такой вопрос точно уже задавали.

[denzenit]

Сам задал вопрос, сам на него ответил.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.btn1Click(Sender: TObject); var   word, word1: string;   j: integer;   strok: string; begin   word := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';   j := StrToInt(Ed1.Text);   if j>26 then     begin      if (j mod 26) = 0 then      begin       strok := copy(word,j div 27,1) + copy(word,26,1);      end      else      begin        strok := copy(word,j div 27,1) + copy(word,j mod 26,1);      end;     end   else     begin       strok := copy(word,j,1);     end;     showmessage(strok);  end;

Где

Код:

1	strok := copy(word,j div 27,1) + copy(word,j mod 26,1);

должно быть

Код:

1	strok := copy(word,j div 26,1) + copy(word,j mod 26,1);

И теперь всё работает.
В частности первая ступень А и вторая ступень АА. Третья ступень с ААА мне не нужна, так что считаю свой вопрос теперь не актуальным для меня.