Discussion :

[Marcus2211]

bonjour,
cette fois ci je bloque sur le tri alphabétique. Il s'agit toujours de la gestion d'un carnet d'adresse.

je crée un carnet d'adresse, enregistré sur fichier. Il faut que je fasses une suppression d'un enregistrement qui se compose d'une variable de type structure ( nom, prénom ... ).

[Alcatîz]

Bonjour !

Si j'ai bien compris en lisant ton post précédent, tu vas utiliser la méthode proposée par macluvitch pour supprimer un enregistrement dans un fichier.
Et si je comprends bien ta question actuelle, tu cherches une méthode pour, justement, trouver cet enregistrement "n".

Tu dois donc lire ton fichier depuis le début. Ton code devrait donner quelque chose comme ceci :

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
Assign(My_File,Nom_Du_Fichier);
Reset(My_File);
n:=0;
Trouve:=False;
while (not EOF(My_File)) and (not Trouve) do
  begin
    Read(My_File,Rec);
    if (Rec.Nom = Nom_A_Trouver) and 
       (Rec.Prenom = Prenom_A_Trouver)
       then
         Trouve:=True
       else
         Inc(n);
  end;
if Trouve
   then
     Delete_Data(n)   {La procédure de suppression}
   else
     WriteLn('Enregistrement non trouvé');
Close(My_File);

Personnellement, je choisirais plutôt la méthode de Charly (tout charger en mémoire, faire les manipulations nécessaires et recréer le fichier) : les performances sont meilleures et cela peut s'appliquer à des gros fichiers.

[Marcus2211]

merci du conseil, mais voilà ce que je veux faire :

je veux pouvoir classer mes enregistrements par ordre alphabétique, comme ça lorsque je voudrais chercher une fiche, il me suffira de faire une recherche dichotomique.

Pour cela, je compte crée un second fichier contenant les enregistrements par ordre alphabétique

[M.Dlb]

Voilà, comme l'ont dit Alcatîz et Charly ( et moi précéedemment ), tu charges tout ton fichier dans un tableau ou une liste puis tu la tries et enfin tu la réécris.

a+

[macluvitch]

Pour trouver l'enregistrment desire je te conseille la fonction suivante

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
 
 
Function Find_Data_Place(Var R : Rec; Var Name : string) : Boolean;
Var 
    Found : Boolean;
    N        : Byte;
Begin
  Found = FALSE;
  While Not EOF(MY_FILE) Do Begin
    Read(My_file,R);
    Inc(N);
    If R.Name = Name Then Begin
      Found = TRUE;
      Break
    End;
    If Found = FALSE Then Find_Data_Place = FALSE
    Else
      Find_Data_Place = N
End;

Ainsi En utilisant cette fonction tu peux trouver l'emplacement de l'enregistrment desire .

Et si tu veux toujours utiliser la methode de charly je te conseille d'uitliser les listes chainees (linked list) ainsi tout deviendra facile (le tri biensur)

Une autre methode consiste a loader les enregistrement dans la memoire a l'aide des linked list les trier et les afficher trieés sans avoire a les reecrire mais le seul inconvenient qui se represente c'est dans le cas de communiquer avec beaucoup de donnees ,cela devient lourd afin de les reecrire)

Bon courage

Si tu veux toujours un exemple n'hesite po a me mailer

[M.Dlb]

Avec une liste chaînée, le tri sera plus simple et moins lourd, mais c'est peut-être pas conseillé pour un débutant... Enfin, c'est beaucoup plus simple de déplacer des pointeurs que des enregistrements entiers !
a+