Discussion :

[gentilman_delphi]

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.

[Dr.Who]

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

[gentilman_delphi]

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

Merci trés infiniment

[Dr.Who]

soit:

FileExists
boucle While
inc
result :=

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;