So solltest Du eine Endlosschleife erhalten, da Du immer wieder von Pos1 ausgehst, diese aber nie verändert wird.
Nee, wäre keine Endlosschleife, aber wenn mal ein ; an erster Stelle steht, dann wird dieses nicht entdeckt, da erst ab Position 2 begonnen wird. (1+1 = 2)
Delphi-Quellcode:
Pos1 := 0;
repeat
Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
if Pos1 <> 0 then Count:= Count + 1
until Pos1 = 0;
bzw.
Delphi-Quellcode:
Pos1 := 0;
repeat
Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
if Pos1 = 0 then break;
Count:= Count + 1
until false;
// oder
Pos1 := 0;
while true do begin
Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
if Pos1 = 0 then break;
Count:= Count + 1
end;