Перебор всех доступных значений!

[Serge_Bliznykov]

petrovich4734,
1) в случае вывода результатов в текстовый файл использование таймера не только излишне, но и крайне вредно - вместо 1000 (или 5000, или 10000 или сколько успеет Ваш компьютер ) генераций в секунду, в вашем случае будет одна генерация за одно выполнение тика таймера...

2) у Вас совсем даже не перебор! У Вас генерация случайной последовательности!

3) формальный ответ на ваш вопрос. Вместо
mEdit.Text := RandomPassword(32)
поставьте

WriteLn(FileWithPass, RandomPassword(32));

разумеется, файл FileWithPass (var FileWithPass : TextFile; ) должен быть предварительно назначен и открыт на запись:

AssignFile(FileWithPass,'ПутькФайлу\ИмяФайла.txt');
Rewrite(FileWithPass);

в конце программы не забудьте закрыть его:

CloseFile(FileWithPass);

[SNUPY]

Как вариант перебора всех возможных значений ^__^:

const
  mlen=3;
var
  s: string;
  i: ^integer;
  j: integer;
  m: int64;
begin
  setlength(s,mlen);
  i:=@s[1];
  m :=1;
  m := (m shl (8*mlen))-1;
  for j:=1 to m do
  begin
    i^:=j;
    Memo1.Lines.Add(s);
  end;

[petrovich4734]

Serge_Bliznykov
спасибо вам за то что вникаете в мою проблему,
а особая благодарность за то что не обращаете
внимания на мою безграмотность.
что вы мне подсказывали пробовал ничего у меня не получилось.
и из подсказки я не пойму откуда в файл что будет писаться
если медит нигде не прописан.
С Уважением Николай

[JUDAS]

и из подсказки я не пойму откуда в файл что будет писаться

Петрович, в делфи есть очень прикольный класс (объект) TStringList для записи и создания текстовых файлов.
Он освобождает пользователя от непонятных полудосовских функций, которые используют в делфи только Сишники. Вот пример его использования:
List := TStringList.Create; // создание экземпляра
List.LoadFromFile(полный_путь_к_фай лу); //загрузить существующий файл
List.SaveToFile(полный_путь_к_файлу ); //сохранить в файл
List.Count - сколько строк загружено
List.Strings[] - массив строк, можно перебрать каждую или заменить с нужным номером
List.Add(строка); добавить в конец новую строку
List.Delete(номер); удалить строку
List.Insert(номер, строка); вставить строку перед строкой с номером
List.Text - получить доступ к всему тексту в виде сплошного массива
(это свойство хорошо, для глобальных поисков функциями низкого уровня)
List.Free; удалить єкземпляр

[petrovich4734]

JUDAS
благодарю вас но такое у меня есть, может быть приблизительно такое
GenDict называется правда я маленько там переделал под свои нужды.
это не то ,это очень слабое и причем работает в памяти .
уже при 5ти значном переборе 16ти разрядного кода все это дело встает наглухо.
А что я писал выше (стр2 данной темы)работает прекрасно,даже с 32 разрядным , но не могу это дело сохранять в файл откуда его другая прога будет брать.
С Уважением Николай

[Alex11223]

но не могу это дело сохранять в файл

Почему?

[petrovich4734]

Serge_Bliznykov
огромное спасибо.
все работает
С Уважением Николай!

И всем ребятам что принимали участие в оказание мне помощи огромное спасибо!
И вообще этот сайт лучший!
С Уважением Николай.

Уважаемые.
Если у кого найдется время помогите еще раз.
Подскажите как написать код чтоб в одной строке изменялись знаки.
Например:
хху потом строка стирается на ее место пишется
хух опять стирается и на это же место пишется
ухх и.т.д, либо изменялось по одному знаку,но писалось бы одной строкой.
Сколько прог не встречал кругом пишется массивами,
т.е что я привел в примере
хху
хух
ухх
записывается без стирания все целиком.
С Уважением Николай.

[puporev]

модуль
uses crt;
процедуры delay,clrscr,cleoln, delline

[Serge_Bliznykov]

к словам Puporev добавлю:
1) модуль Crt доступен только в TurboPascal (для Delphi есть портированная версия - но кривая, как спина верблюда).

2) в том же Crt (если речь всё же идёт о выводе в TurboPascal) есть очень полезная функция GotoXY, ну и очистить можно от позиции курсора до конца строки: ClrEol

[puporev]

Что-то я и раздел даже не глянул, на письмо отвечал...