Hallo,
da fallen mir ein paar Sachen auf
1. Nutze lokale String-Variablen
s1:= frmMyBrowser.MemoSource.Lines[e];
s2:= frmMyBrowser.MemoSource.Lines[e+1];
2. kleiner Bug
for e:=0 to Count-1 do // jaja, heisst iStop
Ist
e jetzt =Count-1 geht folgendes schief
frmMyBrowser.MemoSource.Lines[e+1]
RangeCheck einschalten !
3. Woher kommen die Konstanten
Copy(frmMyBrowser.MemoSource.Lines[e+1],POS('<a href="',frmMyBrowser.MemoSource.Lines[e+1])+9,Length(frmMyBrowser.MemoSource.Lines[e+1])+100)
iPos:= POS('<a href="',frmMyBrowser.MemoSource.Lines[e+1]);
Was soll das
+9 und das
+100 ?
Schreib das mal mit ein paar zusätzlichen Variablen aus
also kein .Add(CopyXXX)
sondern
sString:= CopyXXX
.Add(sString)
Dann ein paar Breakpoints drauf und nachsehen, wo es hakt.
Heiko