一个赋值问题 (10分)

我先定义了一个结构
比如
type
TType=Record
string1:string;
string2:string;
end;

然后又申明了一个该类型的数组
const
Type1:array[1..N] of TType=...
我想问的是如何给该数组静态赋值？

var i:integer
begin
for i=1 to n
begin
type(i).string1:=' '
type(i).string2:=' '
end;

我要静态赋值

语义不清

>>Type1:array[1..N] of TType=...
结构类型好像不能直接静态赋值吧

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TType=Record
string1:string;
string2:string;
end;
const
Type1:array[1..2] of TType=((string1:'ab';string2:'cd'),
(string1:'ef';string2:'gh'));
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 2 do
begin
caption:=caption+':'+type1.string1+':'+type1.string2;
end;
end;

end.

谢谢
xiao_min
给你加分了