ciao a tutti..
sto programmando 1 software in delphi in modo ke crea file in 1 determinata cartella ma dei file a serie..in modo a ke il programma crea txt all'infinito(sempre fino al limite dei file di windows)...il codice è questo ma nn mi funziona:

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
nome : string;
begin
randomize;


repeat
nome := random(90)+1;
assignfile(f, 'c:\'+ nome + '.txt');
rewrite(f);
until label1.text = 'fine';


grazie a tutti..