Original?
Also das in Beitrag #6, so wie es jetzt ist, ist keine Endlosschleife.
PS:
Delphi-Quellcode:
LastPos := 0;
while true do begin
i := PosEx('<td align="center">', SubStr, LastPos + 1)
if i = 0 then break;
LastPos := i;
end;
Delphi-Quellcode:
LastPos := PosEx('>"retnec"=ngila dt<', ReverseString(SubStr));
if LastPos > 0 then LastPos := Length(SubStr) - LastPos - 18;
Delphi-Quellcode:
SearchStr := '<td align="center">';
LastPos := PosEx(ReverseString(SearchStr), ReverseString(SubStr));
if LastPos > 0 then LastPos := Length(SubStr) - (LastPos - 1) - Length(SearchStr);
(ReverseString aus
Unit StrUtils)