On 28 Apr 2010, at 10:48, Jonas Maebe wrote:

 { now delete one of these elements }
 finalise(a[4]);
 { and compact the array }
 move(a[3],a[4],(length(a)-3)*sizeof(a[0]));

Well, actually:

move(a[5],a[4],(length(a)-5)*sizeof(a[0]));


Jonas
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal

Reply via email to