Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: PosEx

   
    by himitsu, 15. Jul 2010
  Original?
  Also das in Beitrag #6, so wie es jetzt ist, ist keine Endlosschleife.
  
  
  
  PS:
  LastPos := 0;
  while true do begin
  i := PosEx('<td align="center">', SubStr, LastPos + 1)
  if i = 0 then break;
• Forum: Programmieren allgemein

  AW: PosEx

   
    by himitsu, 15. Jul 2010
  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)
  
  Pos1 := 0;
  repeat
  Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
  if Pos1 <> 0 then Count:= Count + 1
  until Pos1 = 0;
  bzw.
  Pos1 := 0;
  repeat