incrémentation auto d'un nom de fichier

Bon soir
Dans un répertoire nous avons un fichier (database,table,...) qui porte un nom défini par exemple table1 : nous voulons créer une autre table de même structure que table1 qui porte le nom table2 .

Vous considérez que table2 est dérivé de table1+1

Merci à vous.:ccool:

tant que fichier Fichier+I existe
debut faire
incremente I de 1
fin
resultat = Fichier+I

Citation:

---

Envoyé par Dr.Who

tant que fichier Fichier+I existe
debut faire
incremente I de 1
fin
resultat = Fichier+I

---

Merci trés infiniment :ccool:

soit:

FileExists
boucle While
inc
result :=

donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

// FileName := GetNextFileName('C:\Windows\Temp\', 'TempFileA', '.tmp', 100); function GetNextFileName(aPath, aFileNamePrefix, aExtention: string; var vStart: integer): string; var S : string; begin if vStart < 0 then vStart := 0;   S := aPath + aFileNamePrefix + '%d' + aExtention;   while FileExists( format(S, [vStart]) ) do inc(vStart);   result := Format(S, [vStart]); end;

---