Diese Schleife
Delphi-Quellcode:
step1:
//..
if length(npw) + 1 <= endlen then goto step1;
kann man auch so lösen
Delphi-Quellcode:
repeat
//..
until (length(npw) + 1) > endlen;
Die repeat Schleife wird so lange wiederholt, bis (length(npw) + 1) > endlen ist.
Nebeinbei. U. U. kann das missverstanden werden:
if length(npw) + 1 <= endlen
. Hier prüft Delphi
endlen
evtl. nur gegen die
1
.