كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟

[ع الحليم]

كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل

[dahmane26]

اتبع الرابط التالي
http://delphi4arab.net/forum/showthread....o#pid18728

[dahmane26]

ضع زر وسمه البحث مثلا وضعط مرتين واكتب التعليمة التالية
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 لكتابة فيه الكلمة المراد البحث عنها

[ع الحليم]

شكرا للجميع