Petit repertoire telephonique en pascal

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 811 fois - Téléchargée 38 fois

Contenu du snippet

Ce code est surtout fait pour mettre en évidence la gestion des fichiers et des enregistrements.

Source / Exemple :


program rep;

uses
    crt;
type
    tableau=record
           nom:string;
           numero:string;
    end;
var
   tab:  tableau;
   i,nbperso,choix,erreur:integer;
   fichier:file of tableau;
   fermer:boolean;
begin
     choix:=0;
     fermer:=true;
     while((choix < 1) and (choix<3) ) do begin
                  clrscr;
                  writeln('Création puis écriture : 1');
                  writeln('Lecture : 2');
                  writeln('Ajouter : 3');
                  readln(choix);
     end;
     if choix = 1 then begin
        assign(fichier,'c:\rep.dat');
        rewrite(fichier);
        write('Combien de personnes ?');
        readln(nbperso);
        for i:=1 to nbperso do begin
            with tab do begin
                 write('Quel est le nom ?');
                 readln(nom);
                 write('Quel est le numéro de téléphone ?');
                 readln(numero);
                 write(fichier,tab);
            end;
        end;
end;
if choix = 2 then begin
     assign(fichier,'c:\rep.dat');
     {$I-}
     reset(fichier);
     {$I+}
     erreur:= IOResult;
   if erreur<> 0 then begin
      write('Le fichier n''est pas créé');
      fermer:=false;
   end
   else begin
      while not eof(fichier) do begin
           with tab do begin
                read(fichier,tab);
                write('Nom : ',nom:14);
                write(' Numéro : ',numero:11);
                writeln;
           end;
      end;
    end;
end;
if choix = 3 then begin
   {$I-}
   assign(fichier,'c:\rep.dat');
   reset(fichier);
   {$I+}
   erreur:= IOResult;
   if erreur<> 0 then begin
      write('Le fichier n''est pas créé');
      fermer:=false;
   end
   else begin
        seek(fichier,FileSize(fichier));
        write('Combien de personnes ?');
        readln(nbperso);
        for i:=1 to nbperso do begin
            with tab do begin
                 write('Quel est le nom ?');
                 readln(nom);
                 write('Quel est le numéro de téléphone ?');
                 readln(numero);
                 write(fichier,tab);
            end;
        end;
   end;
end;
     readln;
     if fermer = true then
        close(fichier);
end.

Conclusion :


j'espere que ce code marche car je n'ai pas pu le recompilé et je l'ai obtenu a partir d'un .pas et du bloc-note.
Pour avoir d'autres code ou mise a jour, aller sur mon site :
http://manius.free.fr

A voir également

Ajouter un commentaire

Commentaires

cs_lolocat
Messages postés
1
Date d'inscription
vendredi 2 janvier 2004
Statut
Membre
Dernière intervention
2 janvier 2004

je suis un super debutant ! ! ! ! ! ! desole
et je cherche a creer une sorte de repertoire telephonique je suis tombe sur ce prog, j ai delphi 6 mais et je ne sais pas comment utilisé le tout pour mon repertoire telephonique.
Merci à l'ame charitable qui voudra bien prendre un peu de son precieux temps pour m aider
d avance merci
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
J'ai pas testé mais ça m'a l'air d'être un bon prog.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.