Thema: PosEx

Einzelnen Beitrag anzeigen

youuu

Registriert seit: 2. Sep 2008
Ort: Kleve
822 Beiträge
 
Delphi 2010 Professional
 
#6

AW: PosEx

  Alt 15. Jul 2010, 13:18
Delphi-Quellcode:
Pos1 := 1;
while Pos1 <> 0 do
    Begin
      Pos1 := PosEx('<td align="center">', SubStr, Pos1 + 1);
      if Pos1 <> 0 then // erstes Semikolon gefunden
        Count:= Count + 1
    End;
So oder hab ich da einen Denkfehler drin?
Steven

Geändert von youuu (15. Jul 2010 um 13:33 Uhr) Grund: Code-Tag durch Delphi-Tag ersetzt
  Mit Zitat antworten Zitat