Перебор заглавных букв в слове

[=LeonZone=]

Как перебрать все возможные варианты заглавных букв в слове? Например, слово "привет":
Привет
пРивет
прИвет
...
ПРивет
ПрИвет
ПриВет
...
ПРИВЕТ

Результаты занести в мемо

[bill]

Для начала устанавливается соответствие между буквами прописными и заглавными- создаешь 2 массива, в одном идут попорядку аски коды алфавита(прописные) а,б,в; во втором идут попорядку аски коды заглавных букв.
Далее начинаешь перебирать. Всего у тебя будет n^2 комбинаций, где n-длина слова.
Перебор осуществляешь побуквенно, просто меняя букву на заглавную.
Для этого есть функция chr(u:integer), которая выдает символ с кодом u.
Заносить в мемо- memo1.lines.add(s:string). Хотя можно заносить и подругому.

[=LeonZone=]

2 bill:
А можно подробнее? Желательно уже набросанный примерчик...

[bill]

Ок. Вот реализация того что я говорил. Думаю сам сможешь остальное доработать(или подправить):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,sharemem;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;n:string;

implementation

{$R *.dfm}
function zamena(s:string;f:integer):string;
var a,b:array[1..33] of byte;i,z:integer;c:char;t,t1:string;
begin
// здесь забьешь аски-значения прописных букв поочердно в массив а, в массив в-значения заглавных.
for i:=1 to length(s) do
if  i=f then
begin
for z:=1 to 33 do
if s[i]=chr(a[i]) then
begin
c:=chr(b[z]);
break;
end;
break;
end;
t1:=copy(s,1,(length(s)-f-1))+c;
t2:=copy(s,(length(s)-f+1),length(s));
result:=t1+t2;
end;


procedure TForm1.Button1Click(Sender: TObject);
var s:string;i,z,t,r:integer;
begin
s:=edit1.text;
 t:=0;
for i:=1 to length(s) do
begin
n:=s;
t:=t+1;
for r:=1 to t do
for z:=1 to length(s) do begin
n:=zamena(n,z);
memo1.Lines.Add(n);
end;
end;
end;

end.

[mutabor]

По сути эта задача - перебор всех значений двоичного пятиразрядного числа. Вместо нуля прописная, вместо единицы заглавная буква.

[=LeonZone=]

2 bill:
Спасибо, но программа делает явно не то, что надо! Вот смотри результат перебора слова hello:
hel
he
h
hel
he
h
hel
he
h
hel
he
h
hel
he
h

[mihali4]

Вот вам пример полного перебора для двух символов:

procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
    tmp: string;
begin
ListBox1.Clear;
for i:=1 to Length(Edit2.Text) do
for j:=1 to Length(Edit2.Text) do
begin
tmp:=Edit2.Text;
tmp[i]:=Chr(Ord(tmp[i])-32);
ListBox1.Items.Add(tmp);
if j<>i then
begin
tmp[j]:=Chr(Ord(tmp[j])-32);
ListBox1.Items.Add(tmp);
end;
end;
end;

Дальше, думаю, добьете самостоятельно.

[bill]

Там надо думаю добавить еще цикл, + сделать сброс новоявленной строки. В общем ошибка идет при вызове процедуры замена(она то написана правильно).
=> Надо переделать ее вызов.
Посмотрю попозже.
p.s 2 =LeonZone=, хорошо бы если б написал точно все комбинации для одного слова. А то я насчитал почему то (n-2) вариантов, хотя их по идее должно быть n^2 ?!

[mutabor]

не n^2, а 2^n (n-число букв в слове)