
26.07.2008, 22:50
|
|
Познающий
Регистрация: 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')
|
|
|