Копирование в мемо

[glebast]

День добрый.
Как в мемо можно скопировать текст в буфер обмена с определенного до определенного символа.
Например: есть текст - " *ПРИВЕТ* Как дела* ла ла ла* ". Как мне скопировать только слово ПРИВЕТ, без звездочек.
Заранее спасибо.

[Пепел Феникса]

возьмите все в строку, а потом выделите то что вам надо и возьмите в мемо это.

[glebast]

Вопрос то в этом и стоит - как выделить строку от одного символа до другого.

[Пепел Феникса]

Pos+Copy примеро много.

[Delphi_ProGer]

Еще как вариант:
uses StrUtils; //вроде бы...

Memo1.Text:=StringReplace(Ваш_текст, '*', '', [rfReplaceAll])

Но это уберет только звездочки.

[SNUPY]

Если нужно имено выделить то TMemo.SelStart, TMemo.SelLength ф помощь

[glebast]

Просто фишка в том, что мне надо скопировать программно все ссылки с html кода. Может есть способ и другой, если знаете подскажите.
А так к примеру есть кусок html кода в memo:

<div id='dle-content'><table width="100%" cellspacing="0" cellpadding="0"> 
<tr> 
   <td class="ss_topwhite"> 
      <table width="100%" cellspacing="0" cellpadding="0"> 
      <tr> 
		<td align="left"><div class="ss_title"><a href="http://hello.500mb.net/boevik/14-priklyucheniya-mushketerov2011.html">Отряд особого назначения (2012)</a></div> </td> 
		<td align="right" class="editfav"></td> 
      </tr> 
      </table> 
   </td> 
</tr> 
<tr> 
   <td class="ss_top"> 
      <table width="100%" cellspacing="0" cellpadding="0"> 
      <tr> 
		<td align="left"><div class="sstoplink"><a href="http://hello.500mb.net/boevik/">Боевики</a> &nbsp;|  Автор: <a onclick="ShowProfile('admin', 'http://hello.500mb.net/user/admin/', '0'); return false;" href="http://hello.500mb.net/user/admin/">admin</a> | 8-03-2012, 05:44 | Просмотров: 378 | </div></td> 
		<td width="95"><div class="ratingbg"><div id='ratig-layer-14'><div class="rating" style="float:left;">
		<ul class="unit-rating">
		<li class="current-rating" style="width:0px;">0</li>
		<li><a href="#" title="Плохо" class="r1-unit" onclick="dleRate('1', '14'); return false;">1</a></li>
		<li><a href="#" title="Приемлемо" class="r2-unit" onclick="dleRate('2', '14'); return false;">2</a></li>
		<li><a href="#" title="Средне" class="r3-unit" onclick="dleRate('3', '14'); return false;">3</a></li>
		<li><a href="#" title="Хорошо" class="r4-unit" onclick="dleRate('4', '14'); return false;">4</a></li>
		<li><a href="#" title="Отлично" class="r5-unit" onclick="dleRate('5', '14'); return false;">5</a></li>
		</ul>
</div></div></div></td>

И мне надо из этого мемо скопировать все ссылки в другое мемо.
Если кто знает как, хотя бы есть какая-то мысль, подскажите пожалуйста.
Заранее спасибо.

[Stilet]

Просто фишка в том, что мне надо скопировать программно все ссылки с html кода.

Pos+Copy
Сам пользуюсь им всегда - надежнее пожалуй нет.
Хотя можно и через MSXML провайдер спарсить.
Иногда я так сайты разбираю используя подключение к DOM через TWebBrowser

[glebast]

WB_GetHTMLCode(Webbrowser1, Memo2.Lines);

 for i:=1 to memo2.Lines.Count-1 do
  begin
   if pos('<a href=',memo2.Lines[i])<>0 then
    begin
     s:=copy(memo2.Lines[i],pos('<a href="',memo2.Lines[i])+9, (pos('">',memo2.Lines[i])-pos('<a href="',memo2.Lines[i])-9));
     memo1.lines.add(s);
    end;
  end;

Вот мои наработки, пару ссылок получается, а потом фигню выдает всякую.
Не знаю что уже делать. Помогите пожалуйста.

[Stilet]

Вот как бы делал я:

s:=Memo2.Lines.text;
i:=pos('http',s);
while i<>0 do begin
 delete(s,1,i);
 i:=pos('"',s);
  memo1.lines.add(copy(s,1,i-1));
 delete(s,1,i);
 i:=pos('http',s);
end;