Discussion :

[winow]

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 :

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

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;
 }
}

[Neilos]

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.

[henderson]

Salut !

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

Code :

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

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 !

[winow]

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++

[henderson]

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 :

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

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 !

[winow]

.
Tres Grand Merci a Neilos et a henderson

Code :

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

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);
}
}
}
//--------------------------------------------------