Цитата:
|
Сообщение от Bargest
Не в блокнот, а в файл. Стоит отличать одну из тысячи программ для просмотра текстовых файлов от самих файлов.
Записывать как написано: AssignFile, Rewrite, в цикле WriteLn, потом CloseFile. Соединить abc[a] и abc[b] в строку, и записать строку в текстовый файл (WriteLn(file, Abc[a]+Abc[b])).
З.Ы. бедный хард, много ему придется головками шуршать...
|
"блокнот" не думая написал наверно .
Что правда , то ПК грузится очень сильно при выполнении программы .
Спасибо за ответ !
Цитата:
|
Сообщение от icWasya
Кстати.
Если хотите пользоваться именно TextFile и.т.д то
либо ReWrite(myFile);
// эта процедура создаёт новый пустой файл, а если файл уже существовал, то он будет стёрт.
либо Append(myFile); // эта процедура открывает существующий файл, устанавливает позицию записи на конец файла.
поэтому, как повелось со времён Turbo 3.0
Код:
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 |
Программа заработала , все записалось в файл , постараюсь понять ( изучить ) принцип работы .
Спасибо Огромное за такой емкий ответ !!!
если можно обьясните пожалуйста почему программа перебора ( на 6 символов , написанная по такому же сценарию )так сильно загружает ПК , причем перебирает примерно минуту , самое начало , и перестает отвечать , приходится закрывать программу . А как написать аналогичную программу ( не цикл в цикле ) чтобы сильно не загружала проц пока не знаю , смотрел в интернете , не знаю с чего начать .