如何分隔字符串？(50分)

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #1

如： 把 '1234567890qwertyuiop' 分隔为每个长为6个字符的字符串
str1='123456'
str2='7890qw'
str3='ertyui'
str4='op'

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #2

Copy(a_String,a_Index,a_Length)

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #3

var i:integer;
n:integer;
strary:array of string;
s:='1234567890qwertyuiop'
n:=(length(s) div 6 );
setlength(strary,n);

for i:=0 to n do
begin
.....
end;

 

至

至尊王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #4

如何呀？！

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #5

var i:integer;
n:integer;
strary:array of string;
s:='1234567890qwertyuiop'
n:=(length(s) div 6 );
setlength(strary,n);

for i:=0 to n do
begin
strary:=copy(s,1+i*6,6);
end;
分分吧