1:

<a style="text-decoration: none;" href="/grad/"><span id="grad_celsius">12</span> celsius</a>                    

1:

edit1.text:=wb.OleObject.document.forms.item(0).elements.item('grad_celsius').value;                    

1:
2:

S := 'Das ; startet den Text';
Copy(S, Pos(';', S), Length(S));                    

1:
2:

S := 'Das zweite ; startet den Text; hallo, welt';
Copy(S, PosEx(';', S, Pos(';', S) + 1), Length(S));                    

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

"<span id="grad_celsius">12</span>"

{..}
var
  StrStart: Integer;
const
  StartText = '<span id="grad_celsius">';
  FinText = '</span>';
StrStart := Pos(StartText, S) + Length(StartText);
MyTemperature := StrToInt(Copy(S, StrStart, Length(S) - PosEx(FinText, S, StrStart) - 1));                    

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:

unit Unit1;

interface

uses 
   {...} IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;
   {...} 
type
  {...} 
    IdHTTP1: TIdHTTP;
  {...}


implementation

{...}

procedure TForm1.Button1Click(Sender: TObject);
var
httpcode:string;
begin
httpcode:=IdHTTP1.Get('http://www.google.de');
memo1.Text:=httpcode;
end;

{...}                    

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

  //ANGRIFF
  sAngriff := Pos('id=counter1 typ="countdown"', Quelltext) + IntAngriffPlus;
  eAngriff := PosEx('</SPAN></TD></TR>', Quelltext, sAngriff);
  If (sAngriff > 0) And (eAngriff > 0) Then Begin
  AngriffA.Caption := Copy(Quelltext, sAngriff, eAngriff - sAngriff);
  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:

//Filterbutton
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
filter1,filter2 :string;
position1,position2 :integer;
begin

filter1:=edit1.Text; // Suchfeld 1 wird in filter1 gespeichert
filter2:=edit2.Text; // Suchfeld 2 wird in filter2 gespeichert
position1 := Length(filter1);     //ermittelt die Länge von Suchfeld 1 und speichert sie in position1 ab
position1 := Pos(filter1, httpcode) +  Length(filter1); // speichert die position des zu suchenden Strings 
                                                        // in position1 + länge des zu suchenden Strings

//schleife beginn
//läuft solange bis Position 2 größer oder gleich position1 ist
//keine gute Lösung da die schleife unendlich laufen kann 
//mögliche variable einbauen die hochgezählt wird und bei 1000 Durchläufen abbricht ..
repeat
position2 := Pos(filter2, httpcode); // ermittelt den Endwert  
until position2 >= position1;
//schleife ende


if position1 <> Length(filter1) then  // Abfrage ob überhaupt eine position1 gefunden wurde
  edit4.Text:= copy(httpcode,position1,position2-position1) //wenn ja wird nun der bestimmte Stringteil rausgefiltert mit copy
else
  edit4.text:='Kein Treffer!'; // wenn nichts gefunden wurde wird "Kein Treffer" ausgegeben
end;                    

1:
2:

Pos('<span id="grad_celsius">', S) 
Pos('<a style="text-decoration: none;" href="/grad/"><span id="grad_celsius">', S)                    

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

               // Suchtext zB =" gesammttext zB asdf="jk"l   aussage: in diesemfall: jk
  function  abschneiden(SubStr:string; var S:string):string;
  begin
    if pos(SubStr, S)=0 then     //wenn der text nich vorkommt
    begin
      abschneiden:='';
      exit;
    end;
    S:=copy(S, pos(SubStr, S)+length(SubStr), length(S));   //der text wird ab der stelle, wo der Suchtext steht  ( jk"l )
    abschneiden:= copy(S, 0, pos('"', S)-1);               //die ausgabe geht bis vors " ( jk )
  end;