не получается выйти из цикла

[Taner]

  SoH:= LEditSelectionOfHashes.Text;
  Slovo:= UTF8ToAnsi(LEditText.Text);
  Alp:= UTF8ToAnsi(LEditChange.Text);
  n:= Length(Text);
  q:= Length(Alp);

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

Slovo[i]:= Alp[j];
Writeln(f, Slovo[i]);

через repeat

procedure TForm1.Change1;
begin
  HashOfTheText:= (MD5Print(MD5String(Slovo)));
 repeat
   begin
    For i:= 1 to n do
    begin
        For j:= 1 to q do
        begin
           begin
            Slovo[i]:= Alp[j];
            Writeln(f, Slovo[i]);
           end;
        end;
    end;
   end;
 until HashOfTheText = SoH;
 CloseFile(f);
end;

через while

procedure TForm1.Change1;
begin
  HashOfTheText:= (MD5Print(MD5String(Slovo)));
 while HashOfTheText <> SoH do
    begin
    For i:= 1 to n do
    begin
        For j:= 1 to q do
        begin
           begin
            Slovo[i]:= Alp[j];
            Writeln(f, Slovo[i]);
           end;
        end;
    end;
   end;
 CloseFile(f);
end;

[Serge_Bliznykov]

Вы шутите?!
У Вас в цикле (хоть while, хоть repeat until) условие выхода из цикла (HashOfTheText = SoH) не изменяется!!

HashOfTheText или SoH чудом должны поменяться внутри цикла?!

Hint
если я правильно понял, то Вам нужно внести строчку:

HashOfTheText:= (MD5Print(MD5String(Slovo)));

внутрь цикла:

    For i:= 1 to n do
    begin
        For j:= 1 to q do
        begin
            Slovo[i]:= Alp[j];
            Writeln(f, Slovo[i]);
            HashOfTheText:= (MD5Print(MD5String(Slovo)));
            if HashOfTheText = SoH then Break;
        end;
        if HashOfTheText = SoH then Break;
    end;
    CloseFile(f);

[Taner]

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

Вы шутите?!
У Вас в цикле (хоть while, хоть repeat until) условие выхода из цикла (HashOfTheText = SoH) не изменяется!!

Вот тут немного не понял, вроде бы разное условие или я не там читаю?

repeat
...
until HashOfTheText = SoH;

while HashOfTheText <> SoH do

сейчас попробую внутрь цикла внести, спасибо, но кажется я так уже делал

[Taner]

Вот перебор для 1 буквы

procedure TForm1.perebor;
begin
for i:=1 to 10 do
  begin
  s:=AnsiToUtf8(WordBook[i]);
  for k := 1 to (UTF8Length(Slovo)-1) do
    begin
    posit := 0;
      repeat
      p := UTF8Pos(UTF8Copy(Slovo, k, 1), s, posit + 1);
      if p > 0 then
        begin
        T := s;
        UTF8Delete(T, p, 1);
        UTF8Insert(UTF8Copy(Alp, k, 1), T, p);
        for k1 := 2 to UTF8Length(Slovo) do
          begin
          posit := 0;
            repeat
            p := UTF8Pos(UTF8Copy(Slovo, k1, 1), s, posit + 1);
            if p > 0 then
              begin
              T1 := t;
              UTF8Delete(T1, p, 1);
              UTF8Insert(UTF8Copy(Alp, k1, 1), T1, p);
              s1:=MD5Print(MD5String(t1));
              if s1=SoH then mmResult.Lines.Add(t1);
              posit := p;
              end;
            until p = 0;
          end;
        posit := p;
        end;
      until p = 0;
    end;
  end;
perebor3;
end;

для двух еще длинее

procedure TForm1.perebor3;
begin
for i:=1 to 10 do
  begin
  s:=AnsiToUtf8(WordBook[i]);
  for k := 1 to (UTF8Length(Slovo)-2) do
    begin
    posit := 0;
      repeat
      p := UTF8Pos(UTF8Copy(Slovo, k, 1), s, posit + 1);
      if p > 0 then
        begin
        T := s;
        UTF8Delete(T, p, 1);
        UTF8Insert(UTF8Copy(Alp, k, 1), T, p);
        for k1 := 2 to (UTF8Length(Slovo)-1) do
          begin
          posit := 0;
            repeat
            p := UTF8Pos(UTF8Copy(Slovo, k1, 1), s, posit + 1);
            if p > 0 then
              begin
              T1 := t;
              UTF8Delete(T1, p, 1);
              UTF8Insert(UTF8Copy(Alp, k1, 1), T1, p);
              for k2 := 3 to UTF8Length(Slovo) do
                begin
                posit := 0;
                  repeat
                  p := UTF8Pos(UTF8Copy(Slovo, k2, 1), s, posit + 1);
                  if p > 0 then
                    begin
                    T2 := t1;
                    UTF8Delete(T2, p, 1);
                    UTF8Insert(UTF8Copy(Alp, k2, 1), T2, p);
                    s1:=MD5Print(MD5String(t2));
                    if s1=SoH then mmResult.Lines.Add(AnsiToUTF8(WordBook[i]) +' '+ (t2));
                    posit := p;
                    end;
                  until p = 0;
                end;
              posit := p;
              end;
            until p = 0;
          end;
        posit := p;
        end;
      until p = 0;
    end;
  end;
perebor4;
end;

итд
можно ли как-то минимизировать цикл?
вообще мне кажется что можно уложиться в строк 40 прекрасного цикла, но не могу придумать ничего

[Stilet]

А какая задача?

[Taner]

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

А какая задача?

Есть две программы, первая хеширует пороль(скину в ответе), причем уже с замененными буквами(пример будет ниже) , вторая(архив который был выше) использую словарик со словами с помощью полей текст( какие буквы заменяем) и замены( на какие буквы заменяем) должна вывести слово от которого был взят хеш.
Пример. допустим берем слово "Клей" меняем "к" на "п", "е" на "р" с помощью 1ой программы считаем хеш он равен "3b7779c79d73fba171a8a8242a2ca4 dd". Во второй программе мы в поле текст вводим "ке" в поле замены "пр" и в поле хеш "3b7779c79d73fba171a8a8242a2ca4 dd", она смотрит 1ое слово из словаря меняем "к" на "п" считает хеш если не равен продолжает, меняет все буквы "е" на "р" снова сравнивает хеши. И вот на слове "клей" он заменит первые буквы выйдет "плей" посчитает хеш он будет не равен введенному, затем заменит вторую букву выйдет "плрй" посчитает хеш и он будет равен введенному, это слово он и выведет.
Объяснил как мог

[Utkin]

Вот тут немного не понял, вроде бы разное условие или я не там читаю?

Условия разные, суть одна. Чтобы цикл закончился, нужно чтобы одна или обе переменные меняли свое значение. Вот for закончится автоматически, а в других видах цикла Вам никто ничего не обязан. Вы должны где-то самостоятельно менять проверяемые переменные. А вот условие в цикле уже будет отслеживать - исполнять новый круг или выйти за пределы цикла.
По большому тексту - у Вас рекурсия невооруженным глазом. Значится нужно оформить в процедурку и вызывать саму себя для избежания лишних ошибок. Опять же количество кода сократится...

[Taner]

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

Вот перебор для 1 буквы

procedure TForm1.perebor;
begin
for i:=1 to 10 do
  begin
  s:=AnsiToUtf8(WordBook[i]);
  for k := 1 to (UTF8Length(Slovo)-1) do
    begin
    posit := 0;
      repeat
      p := UTF8Pos(UTF8Copy(Slovo, k, 1), s, posit + 1);
      if p > 0 then
        begin
        T := s;
        UTF8Delete(T, p, 1);
        UTF8Insert(UTF8Copy(Alp, k, 1), T, p);
        for k1 := 2 to UTF8Length(Slovo) do
          begin
          posit := 0;
            repeat
            p := UTF8Pos(UTF8Copy(Slovo, k1, 1), s, posit + 1);
            if p > 0 then
              begin
              T1 := t;
              UTF8Delete(T1, p, 1);
              UTF8Insert(UTF8Copy(Alp, k1, 1), T1, p);
              s1:=MD5Print(MD5String(t1));
              if s1=SoH then mmResult.Lines.Add(t1);
              posit := p;
              end;
            until p = 0;
          end;
        posit := p;
        end;
      until p = 0;
    end;
  end;
perebor3;
end;

ну что можно как-то универсально цикл запилить, или лучше не трогать если работает?

[evg_m]

ну что можно как-то универсально цикл запилить,

чтобы сделать все коротко и универсально (с произвольно задаваемой глубиной) надо все это оформить в рекурсивную процедуру.

или лучше не трогать если работает?

Но это не совсем тривиальная задача, учитывая ваш опыт.

примерное формальное, и не обязательно что правильное, преобразование в рекурсию, только как иллюстрация основных моментов.

procedure Scan(s: UTF8; p: integer; symbol: UTF8; level: integer; maxlevel: integer; var posit: integer);
var //ВСЕ используемые переменные должны локальными или параметрами чтобы Второй вызов не портил нам ничего!!!
// в качестве глобальных можем оставить только "константы" slovo Alp
   k1: integer;
  t: UTF8;
begin
   T := s;
if p>0 then begin     
   UTF8Delete(T, p, 1);
   UTF8Insert(symbol, T, p);
end;
if level<maxlevel then  begin // проверяем будем ли мы снова вызвать себя или... (продолжение комментария смотри на else !!!)
        for k1 := 1+level to UTF8Length(Slovo)-level do
          begin
          posit := 0;
            repeat
            p := UTF8Pos(UTF8Copy(Slovo, k1, 1), s, posit + 1);
            if p > 0 then
              begin
// вот здесь самое интересное(важное) мы снова вызываем себя уже с другими параметрами
   // было       Scan(AnsiToUTF8(workbook[i], 0, AnsitoUT8(' ')      , 0      , 3       , posit); 
                 Scan(t                     , p, UTF8Copy(alp, k1, 1), level+1, maxlevel, posit); 
// и главное при этом повышаем свой "текущий" уровень (level+1)
              end;
            until p = 0;
          end;
      posit:=p;
end
else begin  // ...или мы достигли последнего уровня и пора проверять 
  s1:=MD5PRint(MD5String(t);
  if s1 =SoH then mmresult.lines.add(t);
  posit:=p;
end;
end;

и использование на внешнем уровне

posit:=0;
for i:=1 to 10 do begin
  Scan(AnsiToUTF8(workbook[i], 0, AnsitoUT8(' '), 0, 3, posit);
end;

[Taner]

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

чтобы сделать все коротко и универсально (с произвольно задаваемой глубиной) надо все это оформить в рекурсивную процедуру.

Сделал, спасибо