Discussion :

[Delphi-ne]

Bonjour,

Je rencontre une anomalie et je n'arrive pas à comprendre ce qui peut la causer.

J'ai un champ TMemo.
Je valorise la propriété Text de ce champ avec la valeur suivante :

Code :

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

TMemo.Text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A

En principe j la propriété Lines du champ devrait être égale à 3 puisqu'il y a 3 valeurs séparées les unes autres par des CRLF
Hors j'en ai 15 soit autant que de caractères différents de CRLF.

Si quelqu'un peut m'expliquer merci d'avance

[ALWEBER]

Bonjour,
....
En principe j la propriété Lines du champ devrait être égale à 3 puisqu'il y a 3 valeurs séparées les unes autres par des CRLF
Hors j'en ai 15 soit autant que de caractères différents de CRLF.
Si quelqu'un peut m'expliquer merci d'avance

Le problème que tu mentionnes ne se situe pas ou tu le penses. Le code suivant retourne bien 3

Code :

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

1
2
3
 
  memo1.lines.text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A ;
  showmessage (intToStr(memo1.lines.count)) ;

[Delphi-ne]

Merci.

Le code est différent.
Vous saisissez

Code :

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

memo1.lines.text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A ;

Moi j'ai mis

Code :

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

memo1.text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A ;

Il faut que je vérifie la différence entre les deux au niveau de l'aide de Delphi

[Paul TOTH]

ton memo aurait-il une largeur de 1 caractère avec un WordWrap à True ?!

[Papy214]

Testé sous Seattle :

en VCL

Code :

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

1
2
3
4
5
6
7
 
  Memo1.Lines.Text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A;
  ShowMessage(IntToStr(Memo1.Lines.Count));
  ShowMessage(IntToStr(Length(Memo1.Text)));
  Memo1.Text := '14708' + sLineBreak + '14712' + sLineBreak + '14714' + sLineBreak;
  ShowMessage(IntToStr(Memo1.Lines.Count));
  ShowMessage(IntToStr(Length(Memo1.Text)));

Résultat affiché:
3
21
3
21

Correct

en FMX

Code :

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

1
2
3
4
 
  Memo1.Text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A;
  ShowMessage(IntToStr(Memo1.Lines.Count));
  ShowMessage(IntToStr(Length(Memo1.Text)));

Affiche 4 puis 21

Bizarrement, en FMX, le dernier saut de ligne est compté qu'il ne l'est pas en VCL

[ALWEBER]

Merci.

Le code est différent.
Vous saisissez

Code :

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

memo1.lines.text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A ;

Moi j'ai mis

Code :

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

memo1.text := '14708'#$D#$A'14712'#$D#$A'14714'#$D#$A ;

Il faut que je vérifie la différence entre les deux au niveau de l'aide de Delphi

Memo1.Text accède à l'intégralité du texte en tant que type string donc on peut compter les caractères.
Memo1.lines.text permet d'avoir une autre vision du même texte sous forme d'un TstringList et on peut compter les lignes

[ShaiLeTroll]

Bizarrement, en FMX, le dernier saut de ligne est compté qu'il ne l'est pas en VCL

Pas tant que cela, le TMemo en VCL c'est en réalité une classe Windows,
le Lines ne contient pas les données mais les gère via EM_GETLINE et EM_SETLINE

Alors qu'en FMX, le Lines est un tableau d'indice de position dans une grande chaine

Donc deux implémentations qui n'ont rien en commun, donc deux comportements différents n'ont rien de surprenant

[Papy214]

Je ne sais pas pourquoi mais j'ai toujours cru que seul le TRichEdit était à base de classe Windows.
Dans ce cas, ceci explique cela.

Merci de ce rappel

[Delphi-ne]

Finalement je ne m'en suis pas sorti.
J'ai essayé d'écrire une fonction qui stockait la chaîne de caractères dans une variable et qui ensuite effectuait des Lines.Add à chaque CRLF rencontré. Au final j'obtenais autant de lignes que de caractères.

Je suis passé par une variable TStringList et là tout est OK.

Par contre j'ai quand même noté quelque chose d'intéressant : quand la fenêtre est active le fonctionnement est normal.
C'est quand on clique sur OK et qu'on effectue la validation des données avant de fermer la fenêtre que le problème se produit.

On ne va pas dire que c'est résolu mais merci à tous d'avoir tenté de m'aider.

[ALWEBER]

On ne va pas dire que c'est résolu mais merci à tous d'avoir tenté de m'aider.

Bonjour Delphi-ne, j'ai l'habitude de travailler Avec les TstringList, TMemo et TListBox. J'ai de nombreux exemples que je pourrai te fournir si tu le souhaites.
Bon W.E.