Gewisse Zeile mit bestimmtem Wort aus Memo (html) auslesen

[marabu]

Moin,

du könntest die Prozedur AddList so umbauen:

Delphi-Quellcode:

uses
  StrUtils; // AnsiStartsText, RightStr

procedure TForm1.AddToList(const URL:string);
const
  PFX = 'http://www.webseite.de/profile.php?';
begin
  if AnsiStartsText(PFX, URL) 
    then Memo1.Lines.Add(RightStr(URL, Length(URL) - Length(PFX)))
    else Memo2.Lines.Add(URL); 
end;

Das hätte den Vorteil, dass du auf die variierenden Zahlen mit Memo1.Lines.ValueFromIndex[i] zugreifen kannst.

Freundliche Grüße