Recherche vertical dans TMemo

Bonjour

SVP
J'aimerais lancer une recherche dans un TMemo,

Ce code recherche comme ca " A, B, C ,D ",

Moi je voudrais rechercher comme ca :
A
B
C
D
Mais il y a pas la proprieté " ItemIndex " et " Items " au TMemo
Y aurait-il un moyen de rajouter ces proprietées au TMemo comme pour la fabrication de composants ?.

Merci pour votre aide et A++

Que pourai-je rajouter a ce code ?

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TForm1::Button1Click(TObect* Sender) { int SelPos = Memo1->Lines->Text.Pos(Edit1->Text); if(SelPos > 0) { Memo1->SetFocus(); Memo1->SelStart = SelPos -1; } }

---

Tu devrais retrouver la propriété ItemIndex ou équivalent (je ne me souviens plus du nom exact) dans la propriété Lines du TMemo puisque c'est un TStrings.

Salut !

Par exemple, pour sélectionner une ligne à l'aide de son index :

Code:

---

1 2 3 4 5 6 7

int Ligne = 0; // Sélection de la première ligne, par exemple   Memo1->SelStart = SendMessage(Memo1->Handle, // handle of destination window EM_LINEINDEX, // message to send Ligne, // line number 0); Memo1->SelLength = Memo1->Lines->Strings[Ligne].Length();

---

A plus !

Bonjour et Merci pour l'aides

J'ai pas reussi, j'ai essayer toute sorte de trucs avec " Lines "
il y a bien des mots asser parlant comme Strings[] ou CaretPos ?
Merci Neilos

Je ne voit pas comment travailer " SendMessage( ..) " pour obtenir ce resultat ?
Merci henderson

Si je trouve pas de soluce, je vais me servir d'un TListBox pour faire cette operation puit retourner le texte dans le TMemo.

Encore Merci et A++

Salut !

C'est vrai que les informations que j'ai données sont plus exploitables pour un TRichEdit,
(méthode FindText) celà dit... on peut extraire une ligne du Memo en faisant, comme je
l'ai montré :

Code:

---

AnsiString chaine = Memo1->Lines->Strings[Ligne];

---

ou l'index Ligne doit être compris entre 0 et < Memo1->Lines->Count;

Dans ce cas, il suffit de consulter dans l'aide les méthodes de la classe AnsiString
(Pos, AnsiPos, probablement, etc...) !

A plus !

.
Tres Grand Merci a Neilos et a henderson

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

void __fastcall TForm1::Button1Click(TObject *Sender) { Memo1->SetFocus();   For(int i=0; i< Memo1->Lines->Count; i++) { if(Memo1->Lines->Strings[i].Pos(Edit1->Text)) { Memo1->SelStart = SendMessage(Memo1->Handle, EM_LINEINDEX, i, 0); Memo1->SelLength = SendMessage(Memo1->Handle, EM_LINEFROMCHAR, i, 0); Memo1->Lines->Text.Pos(Edit1->Text); } } } //--------------------------------------------------

---