小的笨，没有学好pas真该死！

Question

现有一个字符Str='00002359'.
考官要求我将这个Str中的8位，分成4个Str1,Str2,Str3,Str4.
现本人有两个问题请教各位大虾：
1，如何定义一个数组变量，Str[i]:?????,小的该死，没好好听课。
2，如何将Str的每两位取出来，Str1='00',Str2='00',Str3='23',Str4='59'.
   (1)用For语句行吗》？For(i:=0;i<7;i++) >>>接下就不知道了。
   (2)用Copy也可以吧？？Copy(...What??)
是考试题目的等着拿分

Answer 1

Str:arrary[1..4] of String;
copy(Str[1],1,2);

Answer 2

var 
str:array[0..7] of string;str1:=copy(str,0,1); 
str1:=copy(str,2,3);
str1:=copy(str,4,5);
str1:=copy(str,6,7);

Answer 3

只要取出来,不一定要用数组啊.
这是小弟用的最笨的方法:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  //str:array[0..7] of string;
  str,str1,str2,str3,str4:string ;
begin
  str:='00002359';
  str1:=copy(str,0,2);
  str2:=copy(str,3,2);
  str3:=copy(str,5,2);
  str4:=copy(str,7,2);
  Panel1.Caption:='str1='+ str1;
  Panel2.Caption:='str2='+str2;
  Panel3.Caption:='str3='+str3;
  Panel4.Caption:='str4='+str4;end;procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;end.

Answer 4

var
  Str, Str1, Str2, Str3, Str4: String;
begin
  Str := '00002359';
  Str1 := Str[1] + Str[2];
  Str2 := Str[3] + Str[4];
  Str3 := Str[5] + Str[6];
  Str4 := Str[7] + Str[8];
end;