+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : البحث داخل memo (/showthread.php?tid=8580)
البحث داخل memo - marinzo - 04-04-2017
كيف أقوم بستخراج رابط صفحة مكتوب داخل صفحة html وهى محفوظة داخل memo
ثم أقوم بفتح ذلك الرابط داخل twebbrowser
![[صورة: 361791759.jpg]](http://www3.0zz0.com/2017/04/05/00/361791759.jpg)
![[صورة: 149134258605321.jpg]](http://store6.up-00.com/2017-04/149134258605321.jpg)
RE: البحث داخل memo - Mustapha29 - 04-04-2017
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
I, L: Integer;
begin
Memo1.WordWrap:= False;
Memo1.Lines.LoadFromFile('http://ig-s-s...........');
I:= Pos('finalization', Memo1.Text);
if I > 0 then begin
L := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, I - 1, 0);
ShowMessage('Found at line ' + IntToStr(L));
// if you need to select the text found:
Memo1.SelStart := I - 1;
Memo1.SelLength := Length('finalization');
Memo1.SetFocus;
end;
end;RE: البحث داخل memo - marinzo - 04-04-2017
بارك الله فيك ياخى على الكود