Discussion :

[naazih]

bonjour,
je veux afficher dans un memo 3 phrases avec aprés chaque phrase un retour a la ligne.
j'ai fais ceci:

Code :

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

1
2
3
4
5
6
7
 
var i:integer;
tab: array[1..2] of string;
begin
tab[1]:='phrase1' + #13 + 'phrase2' + #13 + 'phrase3' 
memo1.SelText:=tab[1];
end;

mais il me les affiche sur la meme ligne avec un caractere spécial entre les phrases !!
qu'elle est la solution svp?

[user 56gt8]

+char(10) peut être ?,généralement dans les types strings ca fait sauter une ligne

[naazih]

+char(10) peut être ?,généralement dans les types strings ca fait sauter une ligne

non non,tjr rien!!!

[evarisnea]

comme ceci peut être

Code :

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

1
2
3
Memo1.Lines.Add('phrase1');
Memo1.Lines.Add('phrase2');
Memo1.Lines.Add('phrase3');

[user 56gt8]

pas de chance

Code :

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

'pas'+char(10)+'de'+char(10)+'chance'

devrais retourner

pas
de
chance

bon on est dac sur ce fait

[gbegreg]

Bonsoir,

Il y a aussi la possibilité de faire comme ça :

Code :

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

tab[1]:='phrase1' + #13#10 + 'phrase2' + #13#10 + 'phrase3';

Bon courage !

[Aka Guymelef]

En effet sous Windows il faut cumuler #13#10 néanmoins pour être compatible cross-plateform le mieux reste d'utiliser la constante sLineBreak qui est faite pour ça

[Pharmacos]

Bonjour,


Pour le faire dans une Listbox, c'est possible ?
Parce qu'il faudrait plutot créer une nouvelle ligne à chaque sLineBreak ?

[ShaiLeTroll]

Dans une TListBox, il faut utiliser Items.Add ... car SelText n'hésite pas !
Sinon, #13 ou #10 sont géré même isolé par la propriété Text de la TStrings (du moins par ses dérivées comme la TStringList), mais des composants comme la TListBox ou le TMemo utilisant une TStrings spécifiques basées je crois sur les API Windows et donc leur comportement est très différents, donc le sBreakLine est recommandé ...

Donc comme SelText d'un TMemo est purement basé sur les API Windows (ou Linux ...), il faut utiliser obligatoirement sBreakLine, en espérant que cela ne mettent pas des petits carrés noirs (ben parfois les API c'est surprenant ...)

[Pharmacos]

Et non j'ai droit à un carré noir !

[ShaiLeTroll]

Essaye en passant par le Copier-Coller (ClipBoard) ... sur le forum, il y a un sujet qui date un peu qui utilise cette méthode à mon vague souvenir ...

[Pascal Jankowski]

Une petite remarque en passant.

Si l'on a une chaîne comme celle-ci :

tab[1]:='phrase1' + #13 + 'phrase2' + #13 + 'phrase3'

alors si l'on assigne cette chaîne à un memo

memo.Text := tab[1] va faire apparaître des petits carrés à chaque retour de ligne tandis que l'affectation suivante

memo.Lines.Text := tab[1] gérera correctement le retour de ligne.