PosEx

[himitsu]

Zitat von DeddyH:

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;