1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

<div id="sidebar_quicklinks" class="sidebarbox">

<div class="sidebarheader">
<b>Quicklinks</b>
</div>
<div class="sidebarcontent" style="line-height: 14px">
<a href="search.php?search_id=newposts" class="gensmall">Beiträge seit letztem Besuch</a>
<a href="search.php?search_id=unread" class="gensmall">Ungelesene Themen</a>
<div class="gensmall" style="margin-top: 2px">
<form action="search.php?search_id=sincex" method="POST" name="sincex_sb_searchform" style="margin-top: 0px; margin-bottom: 0px">
Seit <select class="post" style="font-size: 9px; width: 43px; " name="sincex_time"><option>1</option>
          <option>2</option>

          <option>3</option>
          <option>4</option>
          <option>5</option>
          <option>8</option>
          <option>12</option>
          <option>15</option>

          <option>20</option>
          <option>24</option>
          <option>36</option>
          <option>48</option></select> Stunden
 <input class="liteoption" style="font-size: 9px; width: 30px;" type="submit" value="Go!" /></form></div>
<a href="search.php?search_id=unanswered" class="gensmall">Unbeantwortete Beiträge</a>
<a href="search.php?search_id=open" class="gensmall">Offene Fragen</a>

<a href="vc.php?mode=new&ref_type=0" class="gensmall">Kontakt zum Team</a>
</div>
</div>					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

procedure ScanLine(line : string; var urls : TStringList);
var
  p,p2 : integer;
  i : integer;
  url : string;
begin
  // kommt ein href=" vor?
  p := pos('href="', line);
  if p = 0 then
    Exit;

  // jetzt suchen wir nach <a
  i := p;
  while not (ord(line[i]) = ord('<')) do
  begin
    dec(i);
    if i = 0 then
    begin
      // am Anfang der Zeile angekommen .. Fehler
      line := copy(line, p + 6, length(line) - p - 6);
      // Vielleicht im restlichen String?
      ScanLine(line, urls);
      Exit;
    end;
  end;
  // i zeigt nicht auf '<' -> i+1 == a ? Fehler
  if not ord(line[p+1]) = ord('a') then
  begin
    line := copy(line, p + 6, length(line) - p - 6);
    // Vielleicht im restlichen String?
    ScanLine(line, urls);
    Exit;
  end;

  // Wo kommt das " ?
  p2 := PosEx('"', line, p + 6);
  if p2 = 0 then
    // kommt keins mehr.. dann auch kein href="
    Exit;


  // Jubel.. haben was gefunden
  url := copy(line, p + 6, p2 - p - 6);
  urls.Add(url);

  // mal sehen ob noch was kommt
  line := copy(line, p2, length(line) - p2);
  ScanLine(line, urls);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  line : string;
  urls : TStringList;
begin
  line := copy(Memo1.Text,1,length(Memo1.Text));
  urls := TStringList.Create;
  ScanLine(line, urls);
  Memo2.Lines := urls;
end;					

1:

IndexOf(....)