كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل
ضع زر وسمه البحث مثلا وضعط مرتين واكتب التعليمة التالية
var Integer;
begin
=Pos(edit1.Text,Memo1.Lines.Text); if Position >0
then
begin
Memo1.SelStart :=Position-1;
Memo1.SelLength :=Length(edit1.Text);
memo1.SetFocus;
end;
end;
لا تنس وضع edit1 لكتابة فيه الكلمة المراد البحث عنها