BITTE UM HILFE !!

[StefanDP]

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