delphi 遍历Array 数组简单用法

procedure TForm1.Button1Click(Sender: TObject);

var

  i : integer;

  procList : Array of String;

begin

  procList := ['wps.exe', 'wpscenter.exe', 'wpsupdate.exe', 'wpscloudsvr.exe'];

  for i := 0 to length(procList) - 1 do

  begin

  Memo1.Lines.Add( procList[i]);

  end;

end;