[RussianBoy]

Доброго времени суток посетители форума .
Возник вопрос по поводу записи результатов полного перебора символов в текстовый файл . Программа выводит результаты перебора в Memo1 , не могу переделать под вывод в файл , присутствует "подпрограмма" вывода слова "Hello" в файл ( набросок ) . В комментариях выразил свою идею по реализации . Собственно код программы :

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TForm1.Button1Click(Sender: TObject); var   Abc : array [1..15] of char; a,b,c,d,e,f,g,h,i,j: integer;                                           // думаю сдесь надо myFile:TextFile;                      инициализировать переменную text:string;   begin  Abc[1]:='k';  Abc[2]:='a';  Abc[3]:='r';  Abc[4]:='i';  Abc[5]:='0';  Abc[6]:='1';  Abc[7]:='2';  Abc[8]:='3';  Abc[9]:='4';  Abc[10]:='5';  Abc[11]:='6';  Abc[12]:='7';  Abc[13]:='8';  Abc[14]:='9';  Abc[15]:='n';       for a:= 1 to 15 do      for b:= 1 to 15 do begin Memo1.Lines.Add(Abc[a]+Abc[b]);                                                     // сдесь присвоить значение text:='c:\Test.txt' ;                            вышеуказанной переменной AssignFile(myFile,text);                      переменной (Abc[a]+Abc[b]) ReWrite(myFile); Append(myFile); WriteLn(myFile,'hello');         // вывести значение переменной в файл CloseFile(myFile); end;       end;

Заранее спасибо )))

[Uniq!]

Код:

1	Memo1.SaveToFile('hello.txt');

[RussianBoy]

Сообщение от Uniq!

Код:

Нужна не запись из Memo1 в файл , Memo1 как раз-таки нужно убрать .
Т.е. по нажатию кнопки программа перебирает символы ( комбинации ) и записывает их в блокнот .

[Bargest]

Не в блокнот, а в файл. Стоит отличать одну из тысячи программ для просмотра текстовых файлов от самих файлов.
Записывать как написано: AssignFile, Rewrite, в цикле WriteLn, потом CloseFile. Соединить abc[a] и abc[b] в строку, и записать строку в текстовый файл (WriteLn(file, Abc[a]+Abc[b])).

З.Ы. бедный хард, много ему придется головками шуршать...

[Annihilator]

Еще можно в цикле засунуть в TStringList вместо TMemo, а потом методом saveToFile

[icWasya]

Кстати.
Если хотите пользоваться именно TextFile и.т.д то
либо ReWrite(myFile);
// эта процедура создаёт новый пустой файл, а если файл уже существовал, то он будет стёрт.

либо Append(myFile); // эта процедура открывает существующий файл, устанавливает позицию записи на конец файла.
поэтому, как повелось со времён Turbo 3.0

Код:

1 2 3 4 5 6 7 8 9 10 11 12

text:='c:\Test.txt' ; AssignFile(myFile,text); {$I-} // вот такое волшебное слово,         // отключаем Exception при ошибке ввода-вывода Append(myFile); // открываем файл для дописывания в конец if IoResult <>0 then // проверяем, что открылся {$I+} // а теперь включаем Exception при ошибке ввода-вывода          // поскольку всё равно ничего поделать не можем ReWrite(myFile); // это ещё оператор if !!   WriteLn(myFile,Abc[a]+Abc[b]); // пишем CloseFile(myFile);// закрываем

но открытие и закрытие файла лучше делать вне цикла, а внутри цикла делать только WriteLN

[RussianBoy]

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

Не в блокнот, а в файл. Стоит отличать одну из тысячи программ для просмотра текстовых файлов от самих файлов.
Записывать как написано: AssignFile, Rewrite, в цикле WriteLn, потом CloseFile. Соединить abc[a] и abc[b] в строку, и записать строку в текстовый файл (WriteLn(file, Abc[a]+Abc[b])).

З.Ы. бедный хард, много ему придется головками шуршать...

"блокнот" не думая написал наверно .
Что правда , то ПК грузится очень сильно при выполнении программы .
Спасибо за ответ !

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

Кстати.
Если хотите пользоваться именно TextFile и.т.д то
либо ReWrite(myFile);
// эта процедура создаёт новый пустой файл, а если файл уже существовал, то он будет стёрт.

либо Append(myFile); // эта процедура открывает существующий файл, устанавливает позицию записи на конец файла.
поэтому, как повелось со времён Turbo 3.0

Код:

но открытие и закрытие файла лучше делать вне цикла, а внутри цикла делать только WriteLN

Программа заработала , все записалось в файл , постараюсь понять ( изучить ) принцип работы .
Спасибо Огромное за такой емкий ответ !!!

если можно обьясните пожалуйста почему программа перебора ( на 6 символов , написанная по такому же сценарию )так сильно загружает ПК , причем перебирает примерно минуту , самое начало , и перестает отвечать , приходится закрывать программу . А как написать аналогичную программу ( не цикл в цикле ) чтобы сильно не загружала проц пока не знаю , смотрел в интернете , не знаю с чего начать .

[Bargest]

6 символов, 15 вариантов = 15^6 = 11390625 комбинаций. После каждой запись на диск.

[RussianBoy]

без записи на диск ( вывод результатов в Memo1 ) программа аналогично загружает ПК и перестает отвечать , может быть виной всему 6 "циклов в цикле " .

[Bargest]

без записи на диск ( вывод результатов в Memo1 ) программа аналогично загружает ПК и перестает отвечать , может быть виной всему 6 "циклов в цикле " .

Естественно. Ведь никакой обработки внешних сообщений в цикле не предусмотрено, а цикл выполняется в главном потоке. Поэтому эта операция и занимает все отводимое ей процессорное время.
Честно говоря, не сильно понимаю, зачем это вообще нужно. Как потом используются эти 11 млн комбинаций? Если брутфорс паролей, то делается это несколько иначе, и его обсуждение выходит за правила форума.