[SOLVED]Alternating Copy substring within a string

[Peterkl]

Greetings guys,

I'm looking for a way to copy a substring within a string, but each time I copy the substring I want to copy 9 characters to 9 characters consecutively. Let me show you an example, it would be the best for you to understand.
Example :
var
stringm,line2 : string;
a:integer;
.......
for a := 1 to 10 do begin
line2:=copy(stringm,a,9);

So here I copy the substring, the first time it starts at position 1 and goes like this till 10 (cuz of the "a")
Now as I said I would like to copy 9 in 9 chars, which leaded me to ask you guys if there is a way that I can replace the "a" in the copy function for a "for loop" or something that advances 9 chars each time a substring is copied, please see the follow example.

var
stringm : string;
a:integer;
.......
for a := 1 to 10 do begin
line2:=copy(stringm,HERE THE VALUE HAS TO START AT 1 AFTER 9 AFTER 18 AFTER 27...ETC,9);

I hope u understood what I mean, if you have any question, just ask please. 

[Mike.Cornflake]

Code: [Select]

for a := 0 to 9 do begin
line2:=copy(stringm,(a*9)+1,9);

[Peterkl]

Code: [Select]

for a := 0 to 9 do begin
line2:=copy(stringm,(a*9)+1,9);

Simple maths :p thank you