Memo Komponente Wörter rausfiltern

[DeddyH]

Hallo, willkommen in der DP
Wenn der String immer nur einmal vorkommt, sollte das im Prinzip recht einfach sein:
Zunächst die Position des eindeutigen Strings innerhalb des Memos ermittelniPos := Pos(Memo.Text,'view.php?ad='); Wird dieser String gefunden, dahinter solange Zeichen einlesen, bis ein Leerzeichen kommt.

Delphi-Quellcode:

SuchString := '';
SuchPos := iPos + Length('view.php?ad=');
while (SuchPos < Length(Memo.Text) and (Memo.Text[SuchPos] <> #32) do
  begin
    SuchString := SuchString + Memo.Text[SuchPos]; 
    inc(SuchPos);
  end;

Getippt und nicht getestet.