[lkz_07]

Прошу помощи:
Как из строки типа:
[A-C][EF][K-PSZ]
получить список "слов":
AEK
AEL
AEM
AEO
AEP
AES
AEZ
AFK
AFL
AFM
AFO
AFP
AFS
AFZ
BEK
BEL
BEM
и так далее?


Я создал массив и заполнил его алфавитом:

Код:

i := 0;
for c := 'A' to 'Z' do begin
i := i+1;
spAlfawEN[i] := c;     end;

Потом делал циклами с поиском, в итоге получалась пирамида циклов... , в общем так программа не работает!!!

[Alegun]

А так не проще?

Код:

const
 s1 = 'ABC'; s2 = 'EF'; s3 = 'KLMNOPSZ';
procedure TForm1.Button1Click(Sender: TObject);
var
 i1, i2, i3: integer;
begin
 for i1:= 1 to Length(s1) do
  for i2:= 1 to Length(s2) do
   for i3:= 1 to Length(s3) do
    Memo1.Lines.Add(s1[i1] + s2[i2] + s3[i3]);
end;

[lmikle]

Код:

str := StringReplace(str,'[','',[rfReplaceAll]);
str := StringReplace(str,']',#13#10,[rfReplaceAll]);
memo1.lines.text := str;

Не эффективно, зато просто.

[Страдалецъ]

Сообщение от lmikle

Код:

str := StringReplace(str,'[','',[rfReplaceAll]);
str := StringReplace(str,']',#13#10,[rfReplaceAll]);
memo1.lines.text := str;

Не эффективно, зато просто.

Это явно не то, что хотел автор. Alegun дал вполне жизнеспособное решение.

[lmikle]

Сообщение от Страдалецъ

Это явно не то, что хотел автор. Alegun дал вполне жизнеспособное решение.

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

Единственное, тут есть маленькая проблемка. Алеган дал решение для конкретной строки. Вопрос - как сделать для любой подобной строки. Надо более точно знать задание. Например, допустимы ли только заглавные латинские буквы или могут быть строчные русские буквы, например, или цифры.

[lkz_07]

Сообщение от lmikle

Алеган дал решение для конкретной строки. Вопрос - как сделать для любой подобной строки. Надо более точно знать задание. Например, допустимы ли только заглавные латинские буквы или могут быть строчные русские буквы, например, или цифры.

Это да - для конкретного кол-ва скобок. Их может быть неопределнное кол-во: 2 или 4 или 6 и т.д. Я взял для примера - 3.
Пока только для прописных (заглавных) букв, один язык английский.
А строчные потом можно сделать из созданного списка: типа со 2-ого буквы и до конца слова переводить в нижний регистр.
Главное как создать список?

Alegun может и правильно подсказал начало:

Код:

s1 = 'ABC'; s2 = 'EF'; s3 = 'KLMNOPSZ';

допустим переведем скобку с тире с набором букв, а потом?
Если будет 4 скобки или больше - как сделать конкретное кол-во циклов для введенной строки?