Discussion :

[krokmitaine]

Salut,
Je dispose d'un TMemo grace auquel je recupere des commentaires laisses par l'utilisateur. La question que je me pose est : "existe-t-il une fonction standard permettant de récupérer la TStringList du TMemo et de la convertir en une seule TSring et vice-versa?".
Merci d'avance.

[e-ric]

C'est pas clair tout ça !

Le stockage des lignes de texte d'un memo est spécifique à TMemo (habillage de composant Windows), il n'y a pas d'objet TStringList dans TMemo. La propriété Lines n'est qu' un habillage.

En outre, je ne vois pas où tu veux en venir avec la conversion.
Tstrings est l'ancêtre abstrait de TStringList, cette dernière classe intègre notamment la capacité de stockage des lignes de texte contrairement à TStrings, la conversion n'a pas beaucoup de sens.

Peux-tu préciser tes besoins ou tes intentions ?

cdlt

e-ric

[krokmitaine]

en fait je voudrais recupérer tout le texte du TMemo et pouvoir le stocker dans une seule chaine (je travaille sur des bases de données et je suis limité de ce point de vue la).

[TicTacToe]

La propriétés TMemo.Lines est de type TStrings

TStrings est un Ancêtre de TStringList

Pour passer de l'un à l'autre tu peux simplement faire

Code :

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

1
2
3
4
 
MonStringList.Text := MonMemo.Lines.Text
ou
MonMemo.Lines.Text := MonStringList.Text

La propriété Text étant définie au niveau de TStrings.

Edit: j'ai vu ton post après
donc

Code :

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

1
2
3
4
 
  MaChaine: string;
 
MaChaine := MonMemo.Lines.Text

Mais attention, tu auras les retours chariot intégrés à ta chaine finale (avec un StringReplace, tu peux convertir tous les #13 en autre chose de plus visuel)

[krokmitaine]

j'ai fait:

Code :

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

1
2
3
MonString := MonMemo.Lines.Text
et
MonMemo.Lines.Text := MonString

ca compile et ca à l'air de marcher bien que je n'obtienne pas parfaitement ce que je veux. Mais en fait je crois que c'est mal géré après dans la base de données. En tout cas merci.

[diam's]

[mode boulet rouillé := true]
En attribuant la procédure "OnFormCreate" de la Form1 dans l'inspecteur d'objet, ça fonctionne bien mieux...
[mode boulet rouillé := false]

Merci Anapurna, ça fonctionne très bien !