сгенерировать цисла по диапазону

[brownb]

Подскажите или может у кого есть исходники генератора цифр по порядку
допусти
0001
0002

и так до 9999

[Аватар]

  for i:=1 to 9999 do StringList.Add(Format('%.4d',[i]));

[brownb]

Спасибо!Подскажите пожалуйста как теперь к этому списку добавить еще два символа в начале строки и в конце.То есть у меня есть список в мемо допустим AABB и четерых значиные цифры по порядку.Допустим
АА0001BB
....
AA9999BB
И так до конца.Потом следующие значение
AACC
AA0001CC
....
AA9999CC

[Аватар]

Format('AA%.4dBB',[i])

[brownb]

Сообщение от Аватар

Format('AA%.4dBB',[i])

Спасибо но мне нужно както сгенерировать все возможные варианты.То есть у меня есть два списка букв от a до z(4 символа) и цифры от 0001 до 9999 и теперь надо както это все приклеить так сказать)

[Аватар]

Сделай циклы по спискам букв и почитай справку по функции Format, в частности по символам форматирования

[Serge_Bliznykov]

генератор пароля без повторения

[brownb]

Я смотрел такие генераторы у меня немного по другому получается то есть две буквы в начале потом 4 цифры и опять две буквы.
Подскажите как разбить
в мемо1 есть AABB нужно BB добавить в мемо2 и в мемо1 удалить BB

[evg_m]

возможно надо это
сгенерировать ВСЕ последовательности вида XY...Z где для каждой позиции выбран(указан) свой алфавит.

поз   алфавит
1-2:  A..Z (буква лат. алфавита)
3-6:  0..9 (десятичная цифра)
7-8:  A..Z

здесь написана генерация в одном алфавите, для разных надо

maxind: array[1..100] of integer;
for j:=1 to 100 do
  case j of
  1..2: maxind[j]:=26;
  3..6: maxind[j]:=10;
  7..8: maxind[j]:=26;
  else maxind[j]:=0;
  end;

и везде где есть операция с maxind заменить на операцию с maxind[ind]

P.S. да еще надо конечно будет "перевести" полученные числа массива arrind: array [1..100] of integer в "нормальные" буквы и цифры.

var r: string[100];
for j:=1 to 100 do 
  case j of 
  1..2: r[j]:=chr( ord('A')+ ardind[j] {-1 ???});
  3..6: r[j]:=chr( ord('0')+ ardind[j] {-1 ???});
  7..8: r[j]:=chr( ord('A')+ ardind[j] {-1 ???});
  else r[j]:=' ';
  end;

как-то так

[Аватар]

Цикл мог бы так выглядеть

var i: Integer;
    c11,c12,c21,c22: Char;

  for c11:='A' to 'Z' do
    for c12:='A' to 'Z' do
      for c21:='A' to 'Z' do
        for c22:='A' to 'Z' do
          for i:=1 to 9999 do StringList.Add(Format('%s%s%.4d%s%s',[c11,c12,i,c21,c22]));

Только получишь 4 с половиной миллиарда строк. Что делать с ними будешь?