Delphi-Quellcode:
/.......SPUR6.......\\
i:= 0;
repeat
x:= 1;
repeat
grtab[i].spur6 := 0;
inc(x);
inc(i)
until (x = 4)or (i=255);
x:= 1;
repeat
grtab[i].spur6:= 1;
inc(x);
inc(i)
until (x = 8)or (i=255);
die variable "i" hat möglicherweise in der ersten schleife den wert 255 angenommen. darauf wird die schleife ordnungsgemäß verlassen
in der tzen schleife hat i jetzt 255, "grtab[255].spur6 :=1;" wird auch noch richtig ausgeführt!
jetzt wird i erhöht "inc(i)" und hat damit den wert 256!
d.h. es wird nie "i=255" eintreten können!
du solltest vielleicht mit while...do schleifen arbeiten oder jetzt speziell in diesem fall schreiben "until (x = 8) or (i >= 255)"
stefan