Discussion :

[jcs2]

Losqu'on écrit sur un fichier texte le contenu d'un TMemo par écriture successive des lignes (Memo.Lines[x]) on perd le formatage original (les vrais retour chariot, ceux qui sont voulus). On obtient autant de lignes que celles qui sont visibles dans le controle visuel, et qui dépendent de sa largeur au moment de la sauvegarde.

Apparemment l'écriture de Memo.lines.Text ne marche pas (chaîne trop longue?)

Comment peut-on faire? Merci

[BuzzLeclaire]

Salut

et avec
Memo.Lines.Strings[x]

?

[evarisnea]

et comme ceci ?

Code :

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

Memo.Lines.SaveToFile('c:\le_nom_du_fichier.txt');

[ShaiLeTroll]

Jouer avec WordWrap aussi pour l'affichage ...

[jcs2]

Merci pour vos réponses.

Celle de Eravisnea me convient parfaitement

Code :

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

Memo.Lines.SaveToFile('c:\le_nom_du_fichier.txt');

J'ai également vu que cela marche aussi avec SaveToStream, ce qui permet éventuellement d'en faire une TStringlist ensuite avec les seuls vrais RC

Code :

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

1
2
3
4
5
6
7
var MemoStream: TStringStream; S: String; SL: TStrinList;
...
Memo.Lines.SaveToStream(MemoStream);
MemoStream.Position := 0;
S := MemoStream.ReadString(MemoStream.Size);
 
// et ensuite découper <S> en repérant les RC (#13#10) pour constituer <SL>