widzę że znowu muszę rozwiązywać zagadkę ..
a prosiłem żebyś się uspokoił :)
zerknij na taki kod :
S= Memo1->Lines->Strings[Memo1->CaretPos.y];
dl=S.Length();
p=Memo1->CaretPos.x;
if ( p > 0 )
{
p1=p; p2=p;
while ( p1>0 && S[p1]!=' ') p1--;
while ( p2<=dl && S[p2]!=' ') p2++;
S=S.SubString(p1,p2-p1);
Edit2->Text=S;
}
// W Edit2->Tekst wypisuję slowo , oczywiście musisz dorobic inne separatory słów - w przykładzie jest spacja