Retour chariot dans un TMemo ?

Version imprimable

Voilà mon problème:
J'ai dans mon Mémo des caractères Hexa sous 2 digits, provenant d'un logue, séparés par un espace, comme cela: 5A 27 1F
Et j'aimerai faire des retours à la ligne à des endroits précis.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 void __fastcall TForm1::Button5Click(TObject *Sender) { int InsQR,InsATR; AnsiString MefQR=Memo6->Text; for(int Stop=0;Stop<MefQR.Length()+1;Stop++) { if((MefQR.IsDelimiter("3",Stop))&&(MefQR.IsDelimiter("H",Stop+1))==true) { InsATR=Stop; } if((MefQR.IsDelimiter("B",Stop))&&(MefQR.IsDelimiter("H",Stop+1))&&(MefQR.IsDelimiter("H",Stop+3))&&(MefQR.IsDelimiter("0",Stop+4))) { InsQR=Stop; } } }
Avec se code je sais par exemple à quelles caractères commence la question, BH H0 etc..., la réponse puis la 2 eme question etc...
Bon code fonctionne bien j'ai fais plusieur essai.

Mais je voudrais faire des retours chariots, pour une mise en forme, au commencement de chaque question et pour cela j'ai les variables InsATR et InsQR qui représente la place des caractères ou je dois faire des retours chariots dans mon Memo.
Merci de votre aide.

26/08/2002, 01h19
MadMakII

Tu as essayé avec '\n' ou les caractères 10 et 13 ?

Pour rajouter ton retour chariot, fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
void __fastcall TForm1::Button5Click(TObject *Sender) 
{ 
  AnsiString MefQR=Memo6->Text; 
  for(int Stop=0;Stop<MefQR.Length()+1;Stop++) 
  { 
    if((MefQR.IsDelimiter("3",Stop))&&(MefQR.IsDelimiter("H",Stop+1))) 
    {
      MefQR.Insert("\r\n",Stop+1);
      Stop+=3;
    }
    else 
    {
      if((MefQR.IsDelimiter("B",Stop))&&(MefQR.IsDelimiter("H",Stop+1))&&(MefQR.IsDelimiter("H",Stop+3))&&(MefQR.IsDelimiter("0",Stop+4))) 
      { 
        MefQR.Insert("\r\n",Stop+1);
        Stop+=6; 
      }
    } 
  } 
}

Cordialement,
Arnaud

26/08/2002, 20h32
Vincent PETIT

Merci beaucoup, j'avais essayé avec "\n" mais ça ne fonctionné pas, alors je vais essayer ta proposition GreyBird avec "\r\n".
26/08/2002, 21h14
Vincent PETIT

Ca fonctionne très bien, merci.
J'ai modifié 1 chose, car je voulais faire un retour chariot en début du caractère trouvé donc de

Code:

MefQR.Insert("\r\n",Stop+1);

je passe à

Code:

MefQR.Insert("\r\n",Stop);

. Je dois avoué que je n'aurai jamais pensé à mettre "\r\n"
Mais j'aimerai une explication:
Pourquoi

Code:

Stop+=3;

et

Code:

Stop+=6;

?
27/08/2002, 13h02
Greybird

En fait, cela vient de la description de ton affichage que tu as donné
Tu as dit que ton Memo contenait des valeur sous la forme xx xx xx xx.
Une fois que tu as trouvé ton code question (ou l'autre), tu as ajouté des caractères avant la position où tu es. Il faut donc avancer ton Stop du nombre de caractères que tu as insérés. Ici 2 (\r\n).
Cependant, en faisant ceci, tu te replace directement sur le code que tu as déjà detecté. Il faut donc avancer. Tant qu'à faire, autant passer au bloc de deux caractères suivant : Cela revient à avancer de 3.
Il faut donc que Stop+=4 (le Stop++ du for va agir ensuite) (et non pas Stop+=3, comme fait dans le code que je t'ai envoyé :roll: ; il marchait mais n'était pas super optimisé, car il se placait sur le deuxième caractère du bloc que tu avait détecté. :oops: )
Pour la deuxième détection, c pareil : +2 pour sauter les caractères que tu as insérés, +6 pour sauter les 4 chiffres qui composent le code détecté.
Donc Stop+=7, à la place de Stop+=6 (qui était foireux lui aussi)

Voilà. J'espère que toutes ces explications te seront utiles.

Cordialement,
Arnaud
27/08/2002, 18h52
Vincent PETIT

ok, en faite c'était le "\r\n" qui me chiffonné. je te remerci encore pour ton explication. Elle était très claire.
27/08/2002, 18h55
Greybird

En fait /r/n : /r c retour en début de ligne et /n c retour à la ligne.
Avec cette syntaxe tu es sûr à 100% du passage à la ligne alors qu'avec /n c plus, disons, aléatoire :wink:

Cordialement,
Arnaud