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?