Salut les amis,
Je souhaite lire & écrit dans un fichier texte. Mias là où je suis un peu perdu est que mon code :
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
21
Procedure Enregistre;
begin
    Table[NE].N:=Form1.EditNom.Text;
    Table[NE].P:=Form1.EditPrenoms.Text;
    Table[NE].DTN:=Form1.EditDtNaiss.Text;
    Table[NE].L:=Form1.EditLieu.Text;
    Chr(13);
end;
 
procedure TForm1.QuitterClick(Sender: TObject);
begin
   if
   (EditNom.Text+EditPrenoms.Text+EditDtNaiss.Text<>'')
    then   Enregistre;
          Rewrite(F);
          For I:=1 to NbEnr do
          Write(F,Table[I]);
          CloseFile(F);
      Application.Terminate;
 
end;
suivant écrit mais pas comme je le souhaite dans mon fichier. Je voudrais avoir mes données sur plusieurs lignes de cette manière;
nom, prénoms, date de naissance, lieu de laissance
nom, prénoms, date de naissance, lieu de laissance
etc..
mais au conntraire mon programme les a écrit au kilométrique

Voici mon code pour la lecture :
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
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.FormActivate(Sender: TObject);
begin
      Adresse.Clear;
      AssignFile(F,'C:\Badges.txt');
      {$I-}
      Reset(F);
      {$I-}
      NE:=1;
      if IOResult=0 then
        begin
          repeat
            Read(F,Enreg);
              Table[NE]:=Enreg;
              NE:=NE+1;
            Until Eof(F);
            NbEnr:=NE-1;{Nombre d'enrégistrement dans le fichier}
            CloseFile(F);
            NE:=1;{Numéro de l'enrégistrement courant}
            Affiche(NE);{Affichage du premier enrégistrement}
        end
        else
        begin
          with Enreg do
            begin
              Table[1].N:='';
              Table[1].P:='';
              Table[1].DTN:='';
              Table[1].L:='';
            end;
            NbEnr:=1;
          end;
end;
Ça fonctionne mais avec la manière dont je souhaiterais avoir les données je crois qu'il risque d'avoir un bug.