Delphi-PRAXiS - Delphi Schleifen-Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Schleifen-Problem (https://www.delphipraxis.net/116096-schleifen-problem.html)

Tommy1988

23. Jun 2008 13:08

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

23. Jun 2008 13:12

Re: Schleifen-Problem

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

23. Jun 2008 13:12

Re: Schleifen-Problem

"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:

Alle Zeitangaben in WEZ +1. Es ist jetzt 20:53 Uhr.