这种算法怎么写：从一个字符串里，每隔两个取一个字符：比如：str:='abcdefgh',那么取出来的是：'ab','cd','ef','gh'

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  str,strtemp:string;
  l:integer;
begin
  l:=1;
  str:='abcdefgh';
  while l<=length(str) do
  begin
    strtemp:=copy(str,l,2);
    showmessage(strtemp);
    l:=l+2;
  end;
end;

Answer 1

procedure TForm1.ReaddoubleStr(s:string);
var i,j:integer;
var ss:array[0..10] of string;
begin
  j:=0;
  for i:=1 to length(s) do
    begin
     if (i mod 2)=0 then
      begin
        ss[j]:=s[i-1]+s[i];
        showmessage(ss[j]);
        inc(j);
      end;
    end;
end;

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  str,strtemp:string;
  l:integer;
begin
  l:=1;
  str:='abcdefgh';
  while l<=length(str) do
  begin
    strtemp:=copy(str,l,2);
    showmessage(strtemp);
    l:=l+2;
  end;
end;