I. Extraire les mots d'une AnsiString▲
Sur une fiche poser un TMemo (Memo1) un TEdit (Edit1) et un bouton (Button1). À l'événement OnClick de Button1, les mots de la phrase contenue dans Edit1 s'afficheront sur différentes lignes de Memo1.
Sélectionnez
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x;
AnsiString st = Edit1->Text;
st = st.Trim();
while ((x=st.Pos(" ")) > 0 )
{
Memo1->Lines->Add(st.SubString(1,x));
st.Delete(1,x);
st = st.TrimLeft();
}
Memo1->Lines->Add(st);
}