Como exibir um array bidimensional em um memo?

Delphi

08/03/2017

Olá, Pessoal!

Estou com dificuldades para exibir um array de duas dimensões em um memo. Alguém pode me auxiliar ou colocar algum código de exemplo.

Obrigado!
Paulo

Paulo

Curtidas 0

Melhor post

Jones Granatyr

Jones Granatyr

08/03/2017

Opa! Dê uma olhada nesse artigo

[url]https://www.devmedia.com.br/arrays-dinamicos-no-delphi/26960[/url]
GOSTEI 1

Mais Respostas

Raylan Zibel

Raylan Zibel

08/03/2017

Teste aí.
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;
GOSTEI 1
Paulo

Paulo

08/03/2017

Pessoal, Desculpem pela demora no retorno!

Muito obrigado pela atenção de vocês. Ajudou muito !
GOSTEI 0
POSTAR