给动态数组一次性赋值

procedure TFrm_Main.CreateTalent;
var
  InfoList:TStrings;
  str,InfoBlock,InfoCaption:string;
  i:integer;
  PersonInfo:array of string;
begin
  //下面这行是关键
  PersonInfo:=VarArrayOf(['姓名','工作年限','手机','居住地',
          '电子邮件','学历','户口','出生日期','专业','性别','地址']);
  InfoList:=TStringList.Create;
  try
    InfoBlock:='个人信息';
    if GetInfoBlock(InfoList,InfoBlock) then
    begin
      for i:=Low(PersonInfo) to High(PersonInfo) do
      begin
        if PersonInfo[i]='姓名' then
           Memo2.Lines.Add(PersonInfo[i]+':'+GetCaption(InfoList,InfoBlock,PersonInfo[i],''))
        else
           Memo2.Lines.Add(PersonInfo[i]+':'+GetCaption(InfoList,InfoBlock,PersonInfo[i]));
      end;
    end;
  finally
    FreeAndNil(InfoList);
  end;
end;