keine ahnung ob das überhaupt jemanden interessiert ^^ ber ih hab das ganze mal in Foxpro geschrieben
Code: 
*Arraytest
*!*	1 abcdefg
*!*	12 abcdef
*!*	123 abcde
*!*	1234 abcd
*!*	12345 abc
*!*	123456 ab
*!*	1234567 a  <--kommentare
DIMENSION arrayzahl(7) 
DIMENSION arraybuchstabe(7)  <--definiern von Arrays Eindimensional mit 7 feldern
STORE 1 TO arrayzahl(1)
STORE 12 TO arrayzahl(2)
STORE 123 TO arrayzahl(3)
STORE 1234 TO arrayzahl(4)
STORE 12345 TO arrayzahl(5)
STORE 123456 TO arrayzahl(6)
STORE 1234567 TO arrayzahl(7)
STORE 'abcdefg' TO arraybuchstabe(1)
STORE 'abcdef' TO arraybuchstabe(2)
STORE 'abcde' TO arraybuchstabe(3)
STORE 'abcd' TO arraybuchstabe(4)
STORE 'abc' TO arraybuchstabe(5)
STORE 'ab' TO arraybuchstabe(6)
STORE 'a' TO arraybuchstabe(7)  <-- felder mit werten füllen

b=1
c=1  <-- zaählvariabelen für die array felder
FOR a = 1 TO 7
	STORE arrayzahl(b) TO nvararrayzahl
	STORE arraybuchstabe(c) TO cvararraybuchstabe
	? LTRIM(STR(nvararrayzahl)) + cvararraybuchstabe
	b=b+1
	c=c+1
ENDFOR
der rest ist die forschleife
macht das ganze 7 mal
und gibts aus ^^
sieht dann so aus
1abcdefg
12abcdef
123abcde
1234abcd
12345abc
123456ab
1234567a

rallt warscheinlich keiner aber ok ^^
wollte mich auch mal dran beteiligen