Memo Komponente Wörter rausfiltern

[DeddyH]

Also nochmal anders (ich habe hier gerade kein Delphi und kann daher nicht testen):

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
const gesucht = 'view.php?ad=';
var ipos,suchpos:integer;
    suchstring:string;
begin
iPos := Pos(Memo1.Text,gesucht);
SuchString := '';
SuchPos := iPos + Length(gesucht);
while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do
  begin
    SuchString := SuchString + Memo1.Text[SuchPos];
    inc(SuchPos);    
  end;
memo2.Lines.add(suchstring);
end;