Discussion :

[joreveur]

Bonjour,

j'ai un petit programme qui sauvegarde des infos de type de Tedit Tdate etc. dans un fichier texte, le tout séparé par des points-virgules.

Il y a plusieurs enregistrements
exemple de fichier

Code :

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

1
2
Durand;Paul;12/02/1993;info 1
Lopez;Manuel;06/12/1992;info 2

mais je voudrais rajouter des mémos et le souci vient des retours à la ligne.
j'ai pensé à remplacer les chr(10) (sous Linux) par un "pipe" à l'enregistrement et faire l’opération inverse à la relecture. N'y a t-il pas une méthode plus élaborée ?

merci de vos conseils

Bien cordialement.

[e-ric]

Salut

Cela peut être un bonne solution mais remplacer les Ch(10) est risqué en termes de portabilité (Windows utiliser Chr(13)+Chr(10)), lis plutôt les lignes (au lieu de la propriété Text de TString) une par une et sépare-les par '|'.

Une autre solution pourrait consister à placer le contenu de ton mémo entre guillemets mais cela va alors occuper plusieurs lignes dans le fichier, ce qui va compliquer un peu la lecture du fichier.

Cdlt

[joreveur]

Merci oui ta méthode est meilleure
voila comment je procède pour stocker

Code :

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

1
2
3
for j:=1 to memo1.Lines.Count do
    Write(f1,memo1.lines[j-1]+'|');
 writeln(f1);

Cordialement

[Jipété]

Salut,

voila comment je procède pour stocker

Code :

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

1
2
3
for j:=1 to memo1.Lines.Count do
    Write(f1,memo1.lines[j-1]+'|');
 writeln(f1);

Et tu peux même économiser une instruction à chaque tour de boucle (bon, si le mémo n'a que 5 lignes c'est pas gênant, mais c'est pour le principe) :

Code :

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

1
2
3
for j:=0 to memo1.Lines.Count-1 do
    Write(f1,memo1.lines[j]+'|'); //plus de soustraction à chaque passage
 writeln(f1);

[joreveur]

Bonsoir Jipété,

c'est vrai qu'il n'y a pas de petite optimisation !

Merci de tes conseils.

Bien cordialement