Memo Komponente Wörter rausfiltern

[jkstar]

Hi!
Ich bin neu hier und habe ein Problem ich hoffe ihr könnt helfen.
Ich hab über den Webbrowser den Quelltext in eine Memo datei gespeichert.
Jetzt

zb:

Delphi-Quellcode:

<td width="70%" class="class2" style="FONT-FAMILY: Verdana; FONT-SIZE: 11px; BACKGROUND-COLOR: #ffffff; border:solid 1px #999999; border-top:none;"><span style="margin-left: 3px;">
                          <a href=view.php?ad=21702 target=_blank>New!

Jetzt möchte ich durch einen Button filtern .Die Nummer hinter view.php?ad= also in diesem Falle 21702 in ein 2tes Memofeld speichern.
Wie erreiche ich ,dass ich die Nummer dahinter speichern kann?
Meine Überlegung war wie immer mit einer Zählschleife das zu machen bitte helft mir , Danke.

[STS301]

.....

[Blackheart]

Pos, Copy

[jkstar]

Ich hab den Quelltext aus der Twebbrowser Komponente von Delphi in ein Delphi Memo gespeichert und jetzt möchte ich die Memodatei filtern.
Ich benutze Delphi 7.

[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.

[jkstar]

Danke für die schnelle Antwort,

view.php?ad= kommt öfters vor.
Ich hab grade die Methode getestet
Ich weiss nicht ob das mit der Deklaration stimmt :
var ipos,suchpos:integer;suchstring:string; Ich bekomme den Fehler
[Fehler] m_test.pas(74): Operator ist auf diesen Operandentyp nicht anwendbar [Fehler] m_test.pas(74): Operator ist auf diesen Operandentyp nicht anwendbar

[1234588]

zeig uns mal bitte zeile 74

[jkstar]

while (SuchPos < Length(Memo1.Text) and (Memo1.Text[SuchPos] <> #32) do

[DeddyH]

Sorry, da fehlt eine Klammer.while (SuchPos < Length(Memo1.Text)) and (Memo1.Text[SuchPos] <> #32) do

[jkstar]

Vielen Dank,
es läuft zwar aber wenn ich memo2.Lines.add(suchstring); benutze
um dieses in memo2 zu speicher kommt sowas bei rau

Delphi-Quellcode:

t
tM
tMa
tMar
tMarg
tMargi
tMargin
tMargin=
tMargin=0