Как в Delphi программно создать файл?

← →
Linux (2002-03-22 20:11) [0]

Сейчас пишу прогу, в которой надо создать файл со случайными именами? Как это можно реализовать на Дельфи?

← →
FoxerMoxer (2002-03-22 20:15) [1]

randomize;
for i:=1 to 10 //длина имени файла
do
begin
a:=chr(random(9000);
end;
assignfile(f,"c:\"+a);
rewrite(f);
write(f,"данные);
closefile(f);

Вот и все

← →
FoxerMoxer (2002-03-22 20:15) [2]

randomize;
for i:=1 to 10 //длина имени файла
do
begin
a:=a+chr(random(9000);
end;
assignfile(f,"c:\"+a);
rewrite(f);
write(f,"данные);
closefile(f);

Вот и все

Гораздо проще через:

function MakeTempFilename: string;

Как в Delphi программно создать файл? Найти похожие ветки