Bonjour,

je cherche a formater un text dans un TMemo et je tatone beaucoup

Je veux decaler l'ecriture de deux shortstring, le deuxieme doit commencer avec 18 position vide pour etre alignee avec le premier.

J'ai essayes avec format comme ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
// avec plus haut 
var fBerich  :  String;
 
 fBerich := BerichtShortString  // Essai de conversion qui marche pas
 
NomTMemo.Lines.Add( WS_compr('FRecord_index : ' + IntToStr( index_FRecord)) + '; '
                        + WS_compr(falseEntry) + #13#10
                        + WS_compr(Format('<% (Lenght(fBerich) + 18).Lenght(fBerich)s>',fBerich))+ '.'
Je n'arrive pas a convertir mon ShortString en String ce qui fait que cela ne marche pas.

Si il existe un moyen de le faire avec Delphi 6, merci de me le dire?

Sinon j'ai essaye ca aussi et cela m'affiche la balise caractere vide.
Est-ce possible de la rendre invisible??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
NomTMemo.Lines.Add( WS_compr('FRecord_index : ' + IntToStr( index_FRecord)) + '; '
                        + WS_compr(falseEntry) + #13#10
                        + WS_compr(#20+#20+#20 + fBerich))+ '.'
Meci de votre aide