Discussion :

[SOPSOU]

slt
j'ai des données d'une personne rangées dans un fichier et je souhaiterai qu' après chaque enregistrements que le champ rang s'incremente (pour une nouvelle personne) en attendant la saisie concernant cette personne et que cela ainsi même si on interrompt l'application et on la redemarre.

[rezuss]

Bonjour,

Où est enregistré le "champ" "rang"? Dans un fichier? Une base de données?

[SOPSOU]

tu peux prendre les deux cas. ça m'arrange, sinon chez moi, c'est dans un fichier

[PadawanDuDelphi]

Ca manque clairement de précision tous ça pour avoir une aide efficace.
Si tu utilise un SGBE, les champs auto incrémenté sont là pour ça.
Si ton fichier est de type Access ( comme le laisse supposer tes posts précédents ) alors commence par créer tes tables en définissant ton champs rang en tant que clé primaire auto incrémenter.

Si tu utilise un fichier text, alors il te faut lire tes rangs et garder le premier qui n'existe pas dans ton fichier.
De tête et vite fait, ca pourra ressembler à ça (en supposant que ton fichier ait une ligne par élève) :

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
16
17
18
19
20
procedure GetRangUnique();
var
  Fichier: TextFile;
  FileName: TFileName;
  lig: String;
  rg,max: Integer;
begin
  max:=0;
  FileName:='ton fichier.txt';
  AssignFile(Fichier,FileName);
  Reset(Fichier);
  while not eof(Fichier) do 
  begin 
    readln(F,lig);
    rg:= StrToInt(Copy(lig,..,...));  // Ici place les bornes qui te permettront de recuperer rang...Cela dépendra de la forme de ton fichier.
    max:= max(max,rg);
  end;
  CloseFile(Fichier);
  Result:= max+1;
end;

A+.