关于分割一串数字

Question

我想分割一串数字,不如12345678,分割成12,34,56,78.
就是每两个一块 请问怎么实现?
我看了函数ExtractStrings,好像不能用?
请各位指教

Answer 1

var
    strs:array of string;
    cnt:integer;
    str:string;
    iPos:integer;
begin
    str:='12345678';
    cnt:=Round(Length(str)/2);
    SetLength(strs,cnt);    iPos:=0;
    while Length(str)>0 do
    begin
        strs[iPos]:=LeftStr(str,2);
        str:=RightStr(str,Length(str)-2);
        inc(iPos);
    end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
sl1,sl2:string;
begin
sl1:='12345678';
while Length(sl1)>0 do begin
 sl2:=sl2+copy(sl1,1,2)+',';
 Delete(sl1,1,2);
end;
sl2:=copy(sl2,1,length(sl2)-1);
edit1.Text:=sl2;{-----------------EDIT1显示最后的结果}
end;

Answer 3

1,2楼都对，不过1楼的得引用系纺中StrUtils这个公共单元

Answer 4

1,2楼都对，但1楼的需要引用StrUtils这个公共单元

Answer 5

1,2楼都对，但1楼的需要引用StrUtils这个公共单元

Answer 6

1,2楼都对，但1楼的需要引用StrUtils这个公共单元