Gewisse Stelle aus einem Text abspeichern.

[ringli]

Eine Möglichkeit wäre so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1 : String;
  Pos1, Pos2 : Integer;
begin
  s := '[url="index.php?id=1"][/url]';
  Pos1 := PosEx('"', s, 1);
  Pos2 := PosEx('"', s, Pos1 + 1);
  s1 := Copy (s, Pos1 + 1 , Pos2 - Pos1 - 1);
  showmessage('Pos1 ' + IntToStr(Pos1) + #13#10 +
              'Pos2 ' + IntToStr(Pos2) + #13#10 +
              'Link ' + s1);
end;