delphi4arab منتديات دلفي للعرب

كيف أقوم بستخراج رابط صفحة مكتوب داخل صفحة html وهى محفوظة داخل memo
ثم أقوم بفتح ذلك الرابط داخل twebbrowser

كود :
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;

بارك الله فيك ياخى على الكود

delphi4arab منتديات دلفي للعرب

marinzo

Mustapha29

marinzo