18-08-2016, 12:39 AM
ضع زر وسمه البحث مثلا وضعط مرتين واكتب التعليمة التالية
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 لكتابة فيه الكلمة المراد البحث عنها
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 لكتابة فيه الكلمة المراد البحث عنها