Discussion :

[Pharmacos]

Bonjour,

Je voudrais avoir la confirmation d'un de mes raisonnement :

Si je veux réaliser une application carnet d'adresse en utilisant un fichier binaire et de types énumérés :

Je réalise un Record :

Code :

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

1
2
3
4
5
6
7
 
type
  TFiche = record
    Nom,
    Prenom: string[255];
    Adresse : TAdresse;
  end;

Et une base TAdresse :

Code :

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

TAdresse = (Au fond du jardin, En bas à droite, En bas à gauche);

Et hop je crée des fiches personnes en utilisant l'Integer correspondant à mon TAdresse plutôt que de stocker l'adresse ?!
Cela paraît il logique ? Cela permet il de stocker une seule fois chaque adresse (sachant que beaucoup de personnes ont la même adresse) ?

Comment faire pour permettre à mon TAdresse d'être évolutif ? Utiliser un Array ?

Merci d'avance,
P.

[tintinux]

Bonjour,

Il est intéressant d'utiliser un type énuméré quand on connait toutes les valeurs possibles, et surtout quand cela améliore la lisibilité des sources, et/ou la portabilité.

Dans ton exemple, ce n'est pas du tout le cas.

Si tu tiens à enregistrer des numéros d'adresses, un entier suffisamment long sera bien plus adapté.

Bon courage,

Martinux

[droggo]

Foe,

Pour les adresses, on utilise généralement des chaines de caractères.

Plusieurs chaines, au moins 3 :
- le nom / prénom,
- la rue / place ...
- code postal + ville

La difficulté étant d'ailleurs d'avoir suffisamment de lignes pour n'importe quelle adresse (la mienne en prend officiellement 7 !!).
C'est par contre aisément résolu en utilisant une base de données.

[Pharmacos]

Bonsoir à tous,

Imaginons que je veuille maintenant ajouter la faculté dans laquelle la personne étudie ?!!

Je donne cela comme exemple.
Par exemple :

Code :

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

TFaculte = (Droit,Medecine,Odontologie,Pharmacie,Math,Physique);

Si jamais je voulais faire évoluer les disciplines ? Comment dois je m'y prendre ?

@droggo : quand tu parles de bases de données, tu penses à quoi (lié à delphi) ?

[az0101]

Tu peux utiliser celà:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TFiche = record
   Nom,Prenom: string[255];
   Adresse : TAdresse;
   Faculté: Array[0..255] Of Boolean;
End; 
TEnsembleDeFiches = record
  FacultéName: Array[0..255] Of ShortString;
  LesFiches: Array Of TFiches
End;

S'il faut encore faire évoluer, tu peux ajouter une version de fichier lors de la sauvegarde, puis lors du rechargement selon la version de fichier tu typecastes les données en TEnsembleDeFiche0, TENsembleDeFiche1 etc.
Celà dit les bdd permettent une évolutivité des enregistrements et des champs, alors qu'en utilisant des Records et des tableaux celà peut vite devenir galère.

[ShaiLeTroll]

Sans jugement sur le choix technique, je répondrais simplement par l'utilisation d'une structure variable (j'espère que cela passe en fichier, si tu as utilisé file of ... bof bof, si tu as utilise BlockWrite ou Stream, aucun soucis)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type
  TFiche = record
    Nom,
    Prenom: string[255];
    case Boolean of
       True: (
          Adresse : TAdresse; // de 0 à 7
          Spare: Array[0..2] of Byte); // En fonction du nombre dans l'énumération, le stockage change, faut complèter à 3 Octets
       False: (
          AdresseBin: Cardinal);
    end;
  end;

1 Byte (Octet) = 8 Valeurs
2 Bytes = 16 Valeurs
3 Bytes = 24 Valeurs
4 Bytes = 32 Valeurs
C'est la limite si tu pars sur un Cardinal
C'est le principe du Champ de Bit du C : Champ de bits en delphi

Ensuite faut passer à un Array of Byte, jusqu'à un maximal de 32 Bytes pour 256 Valeurs
Regarde la fonction SizeOfSetShai dans le sujet Récupérer le 1° élément d'un SET OF

[Pharmacos]

Bonjour à tous,

Merci pour vos réponses.
J'aime bien l'idée du champ de bits. La limite est cependant palpable.

Il est vrai qu'il serait plus simple peut être de partir en BDD relationnelle ?
Est il possible sous Delphi de créer, modifier, etc... des tables comme on le ferait sous MS Access ? Ou faut il avoir installer un serveur annexe ?


Merci de vos commentaires.
P.

[ShaiLeTroll]

Tu peux utilise ACCESS via ADO, faut juste configurer l'Alias ODBC pour obtenir une chaine de connexion (c'est peut-être même pas obligé ?), ensuite c'est du SQL façon ACCESS !

Sinon, tu peux partir sur d'autres DB, tu as des versions embedded de MySQL, SQLite, PostgreSQL (un simple package de DLL accompagnant ton exe) ... ou encore Paradox avec le BDE (ça faut le déployer avec Install Shield par exemple), ...

Tu n'imagines même pas toutes les possiblités de Delphi, il doit bien y a voir une dizaine de famille de composant d'accès DB (BDE, ADO, DBExpress, IBX, Zeos, Devart, ...), évidemment le choix de la lib d'accès dépend aussi de sa facilité d'utilisation avec tel ou tel DB ...