Tmemo控件问题，特定字符串的分离

Question

请问：
    把一段文本导入Tmemo中，怎么分离其中的一个特定字符串，比如：
Tmemo中有这么一段文本：
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=450>
<TBODY>
<TR>
<TD height=312>
<PARAM NAME="SRC" VALUE="rtsp://www.12345.com/xx.rm"><PARAM NAME="CONTROLS" VALUE="ImageWindow"><PARAM NAME="CONSOLE" VALUE="MPlayer">怎么分离其中的“rtsp://www.12345.com/xx.rm”多谢了！

Answer 1

先用Pos找出第一个引号， 再用Pos找出第二个引号
再  Result := Copy(Memo1.Text, Pos1, Pos2-Pos1 + 1)

Answer 2

思路：
首先找到://的位置，然后，找出其中所有"的位置，与://的位置比较，可以找到最接近的一个"的位置，用i记录下来。然后在找到比i大的所有"中最小的一个，用j记录下来。
然后用copy(s,i,j-i)取出字符串

Answer 3

楼上的思路和我的基本一样，不过你有没有想过，tmemo本身就支持查找功能，先查找出“rtsp://”的位置然后再进行以上操作啊？

Answer 4

思路 
查找到关键字用copy(s,i,j)提取你需要的字符串

Answer 5

多谢各位，我写了一段代码：
procedure TForm1.Button9Click(Sender: TObject);
var i,j,k,l:integer;
begin
   for i:=0 to length(memo4.text)-1 do
     begin
        if ((memo4.Text[i]+memo4.Text[i+1])='//') then
          begin
            j:=i+2;
            break;
          end;
     end;
   for k:=j to length(memo4.text)  do
     begin
        if memo4.Text[k]='"' then
          begin
            l:=k;
            break;
          end;
     end;
     showmessage('rtsp://'+copy(memo4.Text,j,k-j)) ;
end;