Показать сообщение отдельно

  #9  
Старый 26.07.2008, 22:50
Myst
Познающий
Регистрация: 22.02.2008
Сообщений: 62
Провел на форуме:
211076

Репутация: 52
По умолчанию

Цитата:
в Паскале создается тектовый файл, вот так :

Цитата:
assign(f2,’MyFile.txt’);
rewrite (f2);
close(f2);


Но здесь, имя файла не меняется. Если программа выполнится несколько раз, то файл просто перезапишется и все.

Если программа будет работать рекурсивно (например, 3 раза) и необходимо, чтобы на каждом "цикле" работы программы создавался ЕЩЁ один НОВЫЙ файл.
Т.е. 3 раза проработала программа 3 файла создалось. Как осуществить присвоение "рандомных" имен файлам?
попробуй так

Код:
randomize;
assignfile(f,chr(random(26)+97)+chr(random(26)+97)+chr(random(26)+97)+chr(random(26)+97)+'.txt')
 
Ответить с цитированием