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:

procedure TForm1.Button1Click(Sender: TObject);
var
   i: Integer;
   s, s1, s2: String;
begin
  i := 0;
  Listbox1.Clear;
  s2 := Memo1.Text;
  { so lange 'http://' gefunden wird ist pos() > 0 }
  while pos('http://', s2) > 0 do
  begin
    { kopieren der Zeichenfolge ab 'http://' bis zum ersten Vorkommen von '"'
    -> Linkende }
    while s1 <> '"' do
    begin
      Inc(i);
      { immer 1 Zeichen nach s1 kopieren }
      s1 := copy(s2, pos('http://', s2)-1+i, 1);
      { Überprüfen, ob s1 = ", wenn true Schleife verlassen }
      if s1 = '"' then break;
      { Zusammensetzten des Links }
      s := s + s1;
    end;
    { Hinzufügen des Links der in s steht in die Listbox }
    Listbox1.Items.Add(s);
    { Da pos() inmer nur das erste Vorkommen eines Teilstrings in einem String
    findet, wird der Text bis nach dem ersten Vorkommen abgeschnitten }
    s2 := copy(s2, pos('http://', s2)+Length(s), Length(Memo1.Text));
    { Zurücksetzen der Variablen }
    s := '';
    s1 := '';
    i := 0;
  end;
  Label1.Caption := IntToStr(ListBox1.Items.Count)+ ' Links gefunden';
end;