Array Multidimensional

Question

Senhores, Estou trabalhando com um array multidimensional do tipo ListItem e estou com uma pequena dificuldade. Como fa�o para enviar todos elementos de uma coluna para outra vari�vel? Ex:[code:1:b21c...

Massuda · Answer

Do modo como foram declarados os arrays, voc� tem que copiar item por item. Como o array Teste � est�tico (tamanho pr� definido) enquanto Teste2 � din�mico, o c�digo seria algo assim...

var
  I: Integer;
...
  // ajusta o tamanho de Teste2
  SetLength(Teste2, 15);

  // copia os dados
  for I := 1 to 15 do begin
    // Teste2 � indexado a partir de ZERO
    Teste2[I-1] := Teste[I, 2];
  end;

  // depois de usar, libere a mem�ria
  Teste2 := nil;
...

Cristiam · Answer

Eu queria usar matriz din�mica nos dois, por�m quando eu fa�o isso:

var
 i: integer
 teste: array of array of ListItem
begin
i := 0;
...
 i := i + 1;
 setLength(teste, i)
....
end

Eu n�o consigo fazer com q quando passe a�, ele continue com os valores anteriores, sabe pq?

Massuda · Answer

[quote:48d9321e38=�cristiam�]Eu queria usar matriz din�mica nos dois...[/quote:48d9321e38]N�o entendi a d�vida, mas vai a� alguns exemplos (mudei um pouco o c�digo) com array din�mico bidimensional...[code:1:48d9321e38]var   I: Integer; ...   // ajusta uma dimens�o de Teste   SetLength(Teste, 4);   for I := Low(Teste) to High(Teste) do begin    // ajusta a outra dimens�o de Teste     SetLength(Teste&#91;I&93;, 15);  end;  // ajusta o tamanho de Teste2   SetLength(Teste2, 15);   // copia os dados   for I := Low(Teste2) to High(Teste2) do begin    Teste2&91;I&93; := Teste&91;2, I&93;;   end;   // depois de usar, libere a mem�ria   Teste2 := nil;   for I := Low(Teste) to High(Teste) do begin    Teste&91;I&93; := nil;  end;  Teste := nil;...[/code:1:48d9321e38]Esse c�digo assume que voc� quer ter duas c�pias separadas do conte�do de Teste2. Se n�o for o caso, isto tamb�m � poss�vel...[code:1:48d9321e38]var   I: Integer; ...   // ajusta uma dimens�o de Teste   SetLength(Teste, 4);   for I := Low(Teste) to High(Teste) do begin    // ajusta a outra dimens�o de Teste     SetLength(Teste&#91;I&93;, 15);  end;  Teste2 := Teste&91;2&93;; ...[/code:1:48d9321e38]Aten��o que neste caso Teste2 e Teste[2] s�o ponteiros para a mesma �rea de mem�ria....

Cristiam · Answer

Opa Massuda,
Muito obrigado era isso mesmo que eu queria.

Por�m estou com outra d�vida.

var
 teste1: ListItem[0..15][0..3];
 strTemp: String;
begin
.....
  strtemp := �balandia�
  teste1[1][2].Text := strTemp;
....
end;

Por que quando eu fa�o isso d� erro?
Eu adiciono valores para as duas primeiras colunas e quando tento adicionar na terceira, ele me d� um o seguinte erro:
[color=red:9d760c0851] Refer�ncia de objeto n�o definida para uma inst�ncia de um objeto.[/color:9d760c0851]

Sabe como posso resolver isso? :oops:

Massuda · Answer

[quote:0c131b9897=�cristiam�] teste1: ListItem[0..15][0..3];[/quote:0c131b9897]Isto n�o � v�lido em Delphi/ObjectPascal, mas imagino que tenha sido um erro de digita��o.[quote:0c131b9897=�cristiam�]Por que quando eu fa�o isso d� erro?[/quote:0c131b9897]Teria que ver como a matriz est� sendo inciada....

Cristiam · Answer

OPa.... Foi mal Massuda:var teste1 :array[0..14][0..3] of ListItem.� o sono q t� complicado aqui.Eu tenho q dar um .create na matriz para poder colocar algum valor nela?...

Massuda · Answer

[quote:78a7437534=�cristiam�]Eu tenho q dar um .create na matriz para poder colocar algum valor nela?[/quote:78a7437534]N�o precisa (nem tem acho) fazer um .Create... eu queria ver como voc� carrega os ListView na matriz....

Cristiam · Answer

Bom, deixa ver se eu consigo te explicar....

Eu tenho 2 listBoxs e 1 CheckBox.

Para os itens do listBox, eu estou armazenado da seguinte forma.

var
 teste1: array[0..15][0..3] of ListItem
begin
teste1[0][0] := listbox1.SelectedItem;
teste1[0][1] := listbox2.selectedItem;
teste[0][2] := .....;
end

o problema � que como eu tenho um checkbox, eu quero adicionar todos os itens selecionados no checkbox da seguinte forma.

var
 tmpText, tmpValor : String;
blListTeste : Checkbox
begin
....

     for j := 0 to cblistTeste.Items.count -1 do
     begin
      if cblistTeste.Items[j].Selected then
      begin
       tmpTexto := tmpTexto + cblistTeste.Items[j].Text + �;�;
       tmpValor := tmpValor + cblistTeste.Items[j].Value + �;�;
      end;
     end;
....
end.

e ap�s pegar todos os selecionados e colocar na string, a� sim quero passar para o listItem.

teste1[0][2].Text := tmptextp;
teste1[0][2].Value := tmpValor;

E o meu problema est� nesta parte de adicionar os valores do checkbox no ListItem. Sabe Como me ajudar por gentileza?

Grato desde j� pela paci�ncia. :oops:

Massuda · Answer

S� para confirmar... Pelos seus posts anteriores, imagino que isso seja relacionado com ASP.NET certo?

Bom, deixa ver se eu consigo te explicar.... Eu tenho 2 listBoxs e 1 CheckBox....

Pelo que eu entendi, voc� tem dois ListBoxs (que permitem selecionar v�rios itens?) e um CheckBox, mas eu n�o entendi quem precisa receber a lista dos itens selecionados nem de qual ListBox voc� precisa pegar os itens selecionados.

F�rum Array Multidimensional #288057