Question sur la sauvegarde de données

Version imprimable

Voir 40 message(s) de cette discussion en une page

27/09/2006, 19h26
petitprince

Question sur la sauvegarde de données
Bonjour à tous...
Voilà, je voudrai créer une liste de personne avec les classiques numéro de téléphone, adresse, ..... Seulement, je voudrait ajouter une note pour chaque personne, c-a-d un long texte, je fais donc:
Code:

1 2 3 4 5 6 7 PMaList = ^AList AList = Record Nom : String Prenom : String Adresse : String Note : String end;
J'aimerai donc clicker dans une listbox sur le nom de la personne, et ainsi naviguer dans le fichier.

Mais le problème, comment sauvegarder dans un fichier une liste de pointeur et le record correspondant?

Je tiens à signaler que je ne connais absolument pas les pointeurs.....

Merci pour votre aide
27/09/2006, 20h53
jfdeterme

Un pointeur pointe vers un espace mémoire ( dans ta RAM donc ), celuil-ci diffère à chaque exécution du programme pour une variable donnée ( Si il ne diffère pas, c'est que t'as beaucoup de chance ) : sauvegarder un pointeur n'est donc pas utile étant donné que l'adresse mémoire vers laquelle il pointe sera détruite lorsque tu mettra fin à ton application.
27/09/2006, 23h12
jula2i

Hello,

Citation:

J'aimerai donc clicker dans une listbox sur le nom de la personne, et ainsi naviguer dans le fichier.

Tu veux pouvoir ouvrir ton fichier avec les infos de tes "personnes" dans ton appli, ou sauvegarder les infos pour pouvoir les réutilisé ultérieurement ??! :roll:

Si c'est la deuxième solution, je te conseil de sauvegarder les infos dans un fichier XML.

avec, par exemple, cette structure :

<personnes>
<infos>
<nom>[CDATA[nom1]]</nom>
<prenom>[CDATA[prenom1]]</prenom>
<adresse>[CDATA[adresse1]]</adresse>
<note>[CDATA[note1]]</note>
</infos>
<infos>
...
</infos>
</personnes>

Le "[CDATA[...]]" est facultatif, cela permet de préserver un texte "long" ou non ainsi que les caractères spéciaux.

En éspérant avoir apporté une ébauche de solution...
A+.
28/09/2006, 14h03
petitprince

J'apporte un peu de nouvel: Je ne souhaite pas sauvegardez en xml, pour la simple raison que je doit stocker des List, TobjectList, des images, et des composants dans mon fichier également....
Bref je pense stocker le tout dans un fichier binaire, mais j'ai toujours ce problème "d'indexation"....
28/09/2006, 14h13
der§en

Un simple TClientDataset couplé a un TDataSource ne te conviendrai pas pour définir ta structure (qui me semble être de même type qu'une table) puis tu n'aurais plus qu'a faire un simple clientDataset1.SaveToFile et un ClientDataSet1.LoadFromFile pour gere ton fichier.

Der§en.

Salut Perso, j'utilise les fichiers typés pour ce genre de chose. Un exemple rapidos :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Type TClient = Record Nom: String[50]; Prenom: String[50]; Adresse: String[150]; Photo: TBitmap; End; Type TListClient= Array Of TClient; Var F: File Of TClient; Function LoadFromFile(fn: ShortString; Var ListClient: TListClient): Boolean; Function SaveToFile(ListClient: TListClient; fn: ShortString): Boolean;
Si cette solution t'intérresse, dis-le moi, je te donnerais un exemple fonctionnel.
La dernière fois que j'ai utilisé cette méthode, c'était pour ce projet :
http://www.developpez.net/forums/sho...d.php?t=193886
à+

28/09/2006, 15h48
petitprince

Merci Sub0, je t'ai envoyé un MP...
Pour le TClientDataSet, ca serait pas un composant orienté Base de Donnée, NON livré avec une version PE !:cry:
Bon je pensais faire un fichier binaire, utiliser TFileStream, et les instructions Write Read, mais mon problème c'est cette fichu navigation ...
Je voudrait afficher plusieur nom de personne dans une listebox, et a chaque nom correspond le prénom, adresse, et une note, note SANS limite de caractère du style (Note : String[255])...
Voilà....

Mais bon, comme google est mon ami, je ne désepère pas !!!!!
28/09/2006, 16h30
Sub0

Citation:

Envoyé par petitprince

note SANS limite de caractère du style (Note : String[255])...

Tu devrais peut-être commencer par nous donner le cahier des charges, on gagnerait du temps... Tu en as beaucoups des exigences de ce genre ?
En tous les cas, je ne vois pas 36 solutions, tu seras obligé d'enregistrer la taille de chaque champs.
28/09/2006, 16h38
petitprince
Citation:

Tu devrais peut-être commencer par nous donner le cahier des charges, on gagnerait du temps... Tu en as beaucoups des exigences de ce genre ?

Il en à toujours été question depuis mon premier message, qui en est le sujet de la discution !
Citation:
Bonjour à tous...
Voilà, je voudrai créer une liste de personne avec les classiques numéro de téléphone, adresse, ..... Seulement, je voudrait ajouter une note pour chaque personne, c-a-d un long texte, je fais donc:

Code:

1 2 3 4 5 6 7 PMaList = ^AList AList = Record Nom : String Prenom : String Adresse : String Note : String end;

J'aimerai donc clicker dans une listbox sur le nom de la personne, et ainsi naviguer dans le fichier.

Mais le problème, comment sauvegarder dans un fichier une liste de pointeur et le record correspondant?

Je tiens à signaler que je ne connais absolument pas les pointeurs.....

Merci pour votre aide
28/09/2006, 16h43
Sub0

Ok, j'avais pas fait gaffe.
Ce n'est pas possible, tu ne peux pas mettre un type string dans un record sans définir une taille, dsl.
Il me semble que les tableaux dynamiques sont dans le même cas.
28/09/2006, 16h50
petitprince

Pas de solution au problème alors .......:cry:
28/09/2006, 16h51
Sub0

Je cherche...

http://perso.orange.fr/bardou/michel/erreurs.html
28/09/2006, 16h55
petitprince

Merci, mais je l'ai déjà en stock;)
Sinon j'ai trouvé un truc dans la faq, mais j'ai pas testé :Sauvegarder des chaînes longues dans un espace réduit

Je cherche aussi ......
28/09/2006, 17h20
Sub0

J'ai peut-être une solution à te proposer.
Il faut que je fasse un essai d'abord.
Je reviens dans quelques instants avec un code de démo...
28/09/2006, 17h23
petitprince

Alors toi t'es trop sympa ! Quand t'es dans un truc, tu lache pas !!!
Sinon pour info, dans la JVCL, il y a un exemple (JvTimeLine) où tu peux stocker du texte (plus de 255 caractère) sur les item de la TimeLine: lorsque tu click sur un des items, ca te ressort ton text....
J'ai jeté un coup d'oeil mais je comprend pas, car y a une histoire de pointeur...
28/09/2006, 20h49
Sub0

Voici la démo dont je parlais. C'est super simple en fait et très efficace. Voici donc un exemple qui permet d'éditer les informations d'un client et sa photo et de l'enregistrer dans un fichier que l'on pourra recharger ensuite. Il est possible de charger plusieurs frames dans un seul fichier...

http://sub0.developpez.com/delphi/datasave4.zip

Citation:

Envoyé par petitprince

Alors toi t'es trop sympa ! Quand t'es dans un truc, tu lache pas !!!

Donner de l'aide aux membres du forum me permet de progresser. Ce genre de programme me servira très certainement. J'ai aujourd'hui fait une autre démo et j'ai appris pleins de trucs : http://sub0.developpez.com/delphi/horloge32.zip
à+
28/09/2006, 21h31
LadyWasky

J'ai des choses sympa aussi.
Stay tuned....;)

Oui, je crois qu'avec ton record, l'utilisation de TList, et de TstringList je devrais pouvoir te sortir quelque chose d'intéressant...
28/09/2006, 21h59
LadyWasky

Bon, en fait, c'est tout couillon... C'est juste l'histoire d'un TStringList.

Je planche dessus...

1 pièce(s) jointe(s)

Voici l'unité Magique :D :

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
unit UnitCarnet;
 
interface
uses
  Sysutils, Classes;
{$H+}
type
  TFiche=class
  private
    FNom: String;
    FPrenom: String;
    FAdresse: TStringList;
    FNote: TStringList;
    FOnEditingChange: TNotifyEvent;
    procedure SetNom(const Value: String);
    procedure SetPrenom(const Value: String);
    procedure SetAdresse(const Value: TStringList);
    procedure SetNote(const Value: TStringList);
    procedure SetOnEditingChange(const Value: TNotifyEvent);
  protected
    property OnEditingChange:TNotifyEvent read FOnEditingChange write SetOnEditingChange;
    procedure EditingChange(Sender: TObject);
  public
     constructor Create;
     destructor Destroy; override;
     Property Nom : String read FNom write SetNom;
     property Prenom : String read FPrenom write SetPrenom;
     property Adresse : TStringList read FAdresse write SetAdresse;
     property Note : TStringList read FNote write SetNote;
  end;
 
  TCarnet = class
  private
    FStringList:TStringList;
    FIndexCourant: Integer;
    FFicheCourante: TFiche;
    FIsEditing: boolean;
    FOnBrowse: TNotifyEvent;
    FOnEditingChange: TNotifyEvent;
    function GetCapacity: Integer;
    function GetCount: Integer;
    procedure SetCapacity(const Value: Integer);
    function GetSorted: Boolean;
    procedure SetSorted(const Value: Boolean);
    procedure SetIndexCourant(const Value: Integer);
    function GetIndexCourant: Integer;
    procedure SetFicheCourante(const Value: TFiche);
    function GetFicheCourante: TFiche;
    procedure SetIsEditing(const Value: boolean);
    procedure SetOnBrowse(const Value: TNotifyEvent);
    procedure SetOnEditingChange(const Value: TNotifyEvent);
  protected
    function EncodeLigne(UneFiche:TFiche):string;
    procedure DecodeLigne(Ligne:string;Var UneFiche:TFiche);
    procedure EditingChange(Sender: TObject);
  public
    constructor Create;
    destructor Destroy; override;
    //Méthodes façon TStringList
    procedure Clear;
    procedure Sort;
    procedure UpdateFicheCourante;
    procedure LireFiche(Index: Integer;Var UneFiche:TFiche);
    procedure MaJFiche(Index: Integer;UneFiche:TFiche);
    function IndexOf(Nom,Prenom:String):integer;
    function Add(UneFiche:TFiche): Integer;
    procedure Delete(Index: Integer);
    procedure Insert(Index: Integer; UneFiche:TFiche);
    procedure Move(CurIndex, NewIndex: Integer);
    procedure Exchange(Index1, Index2: Integer);
    procedure BeginUpdate;
    procedure LoadFromFile(const FileName: string);
    procedure LoadFromStream(Stream: TStream);
    procedure SaveToFile(const FileName: string);
    procedure SaveToStream(Stream: TStream);
    property Capacity: Integer read GetCapacity write SetCapacity;
    property  Count: Integer read GetCount;
    property Sorted: Boolean read GetSorted write SetSorted;
    procedure EndUpdate;
    //Méthodes Façon TTable
    property IndexCourant:Integer read GetIndexCourant write SetIndexCourant;
    Procedure First;
    Procedure Prior;
    Procedure Next;
    procedure Last;
    procedure Post;
    procedure Cancel;
    procedure New;
    procedure Del;
    property IsEditing:boolean read FIsEditing write SetIsEditing;
    property FicheCourante:TFiche read GetFicheCourante write SetFicheCourante;
    property OnEditingChange:TNotifyEvent read FOnEditingChange write SetOnEditingChange;
    property OnBrowse:TNotifyEvent read FOnBrowse write SetOnBrowse;
  end;
 
implementation
...

La suite est dans le fichier zip avec l'exemple

Tout d'abord, tu as la classe TFiche qui représente une fiche de ton carnet d'adresses, avec le Nom (String), le Prénom (string), son Adresse et une Note le concernant (Tous les deux sont des TStringList, à la manière des lignes d'un TMemo)

Par exemple, tu peux affecter le contenu d'un mémo à la note d'une fiche :

Code:

1
2
3
4
5
6
7
8
 
var UneFiche:TFiche;
...
  UneFiche.Note.Assign(Memo1.Lines);
 
  //et vice versa
  Memo1.Lines.Assign(UneFiche.Note);
...

Ensuite, tu as la classe TCarnet, elle fonctionne presque comme une StringList, à ceci prêt qu'au lieu de gérer une liste de chaînes, tu gère une liste de Fiches.

Les méthodes qui sont à ta disposition, et qui fonctionnent à peu prèt comme celles de TStringList (voir l'aide Delphi) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    procedure Clear;
    procedure Sort;    
    function Add(UneFiche:TFiche): Integer;
    procedure Delete(Index: Integer);
    procedure Insert(Index: Integer; UneFiche:TFiche);
    procedure Move(CurIndex, NewIndex: Integer);
    procedure Exchange(Index1, Index2: Integer);
    procedure BeginUpdate;
    procedure LoadFromFile(const FileName: string);
    procedure LoadFromStream(Stream: TStream);
    procedure SaveToFile(const FileName: string);
    procedure SaveToStream(Stream: TStream);
    property Capacity: Integer read GetCapacity write SetCapacity;
    property  Count: Integer read GetCount;
    property Sorted: Boolean read GetSorted write SetSorted;
    procedure EndUpdate;

A Contrario de TStringList ou tu accèdes à tes lignes directement via TStringList.Strings[], ici, c'est un petit peu différent (je pense que tu auras compris le fonctionnement) :

Code:

1
2
3
    procedure LireFiche(Index: Integer;Var UneFiche:TFiche);
    procedure MaJFiche(Index: Integer;UneFiche:TFiche);
    function IndexOf(Nom,Prenom:String):integer;

Sinon, tu as aussi a ta disposition, des méthodes et propriétés, pour gérer ta liste comme une base de données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
property IndexCourant:Integer read GetIndexCourant write SetIndexCourant;
    Procedure First;
    Procedure Prior;
    Procedure Next;
    procedure Last;
    procedure Post;
    procedure Cancel;
    procedure New;
    procedure Del;
    property IsEditing:boolean read FIsEditing write SetIsEditing;
    property FicheCourante:TFiche read GetFicheCourante write SetFicheCourante;
    property OnEditingChange:TNotifyEvent read FOnEditingChange write SetOnEditingChange;
    property OnBrowse:TNotifyEvent read FOnBrowse write SetOnBrowse;

Enfin, tu as a ta disposition deux évènement qui te permettent, par exemple, de mettre à jour tes contrôles :
OnBrowse te permet de savoir si on s'est déplacé dans la liste (IndexCourant a changé)
OnEditingChange te permet de savoir si il y a eu une modif danss la fiche courante

29/09/2006, 12h16
der§en

Merci WasKol, ce genre de code peut toujours servir, je vais me le mettre au chaud.

Der§en.

Voir 40 message(s) de cette discussion en une page