Thema: Delphi Schleifen-Problem

Einzelnen Beitrag anzeigen

Tommy1988
(Gast)

n/a Beiträge
 
#1

Schleifen-Problem

  Alt 23. Jun 2008, 14:08
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?
  Mit Zitat antworten Zitat