delphi4arab منتديات دلفي للعرب
كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟ (/showthread.php?tid=8084)



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

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


RE: كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟ - dahmane26 - 17-08-2016

اتبع الرابط التالي
http://delphi4arab.net/forum/showthread.php?tid=3399&pid=18728&highlight=Memo#pid18728


RE: كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟ - dahmane26 - 18-08-2016

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


RE: كيف أبحث عن كلمة في نص وأجعلها في حالة تضليل ؟ - ع الحليم - 20-08-2016

شكرا للجميع