Schleifen-Problem

[Tommy1988]

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:

Delphi-Quellcode:

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...
:warn: