PosEx

**DeddyH**

Im Originalcode war das eine Endlosschleife

**himitsu**

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;

markieren

Delphi-Quellcode:

			LastPos := PosEx('>"retnec"=ngila dt<', ReverseString(SubStr));

if LastPos > 0 then LastPos := Length(SubStr) - LastPos - 18;

markieren

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)

**DeddyH**

Der Beitrag ist ja auch editiert worden. Aber nun genug davon

PosEx

AW: PosEx

AW: PosEx

AW: PosEx

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#11 AW: PosEx 15. Jul 2010, 13:56 Im Originalcode war das eine Endlosschleife Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#13 AW: PosEx 15. Jul 2010, 14:07 Der Beitrag ist ja auch editiert worden. Aber nun genug davon Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat