Schleifen-Problem

ICh habe ein kleines Problem mit einer Schleife.

Mein Code

Delphi-Quellcode:

			   
s := Memo1.Text;

repeat

 p := pos(#13#10#13#10, s);

 vQuests := vQuests + 1;

until

 p = 0;

 Label4.Caption := 'Gesamt: ' + IntToStr(vQuests);

 Memo1.text := s;

  end;

Hintergrund:
Es sollen alle leeren zeilen in einem memo gezählt und in vQuest addiert werden.
Der hängt sich aber immer auf?

**DeddyH**

Zitat:

p := pos(#13#10#13#10, s);

Lass Dir mal p ausgeben, das dürfte immer dasselbe sein. Du wirst schon PosEx brauchen.

**iKilledKenny**

"Der" hängt sich nicht auf, sondern dein Code produziert eine Endlosschleife.
Du musst den String s kürzen und zwar bis p, sonst wird dein Abbruchkriterium nie true...

Schleifen-Problem

Schleifen-Problem

Re: Schleifen-Problem

Re: Schleifen-Problem

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#2 Re: Schleifen-Problem 23. Jun 2008, 13:12 Zitat: p := pos(#13#10#13#10, s); Lass Dir mal p ausgeben, das dürfte immer dasselbe sein. Du wirst schon PosEx brauchen. 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

iKilledKenny Registriert seit: 25. Apr 2007 Ort: Bergstrasse 49 Beiträge Delphi 5 Professional	#3 Re: Schleifen-Problem 23. Jun 2008, 13:12 "Der" hängt sich nicht auf, sondern dein Code produziert eine Endlosschleife. Du musst den String s kürzen und zwar bis p, sonst wird dein Abbruchkriterium nie true... Alexander Stork
	Zitat