Fórum Como exibir um array bidimensional em um memo? #576668

procedure TForm1.Button2Click(Sender: TObject);
var
  VetorA: array of array of string;
  i, j: integer;
begin
  mmo1.Lines.Clear;
  // criando
  SetLength(VetorA, 10);
  for i := 0 to 9 do
  begin
    SetLength(VetorA[i], 2);
    for j := 0 to 1 do
    begin
      VetorA[i][j] := 'Valor '+ IntToStr(i) +' e ' + IntToStr(j);
    end;
  end;
  // lendo
  for i := Low(VetorA) to High(VetorA) do
  begin
    for j := Low(VetorA[i]) to High(VetorA[i]) do
    begin
      mmo1.Lines.Add(VetorA[i][j]);
    end;
  end;
end;