1:
2:
3:
4:
5:
6:

 function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0;
  i<a.length; i++)
  if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a
  [i];}}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := Memo1.Lines.Text;
  if Pos('#', s) > 0 then begin
    Delete(s, 1, Pos('#', s));
    if Pos('p[j]', s) > 0 then s := Copy(s, 1, Pos('p[j]', s) - 1);
  end else ShowMessage( 'Fehler! "#" nicht gefunden' );;
  ShowMessage( s );
end;					

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;