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