SetLength em array com duas colunas

Delphi

16/09/2005

como faço para redimensionar a quantidades de linhas de um array que tem duas colunas?
declarei da seguinte forma:
Lesoes: array [0..0, 0..1] of Smallint;

a quantidade de colunas será sempre a mesma (duas), porém a quantidade de linhas vou adicionando a medida que for necessário acrescentar.


Raserafim

Raserafim

Curtidas 0

Respostas

Ipc$

Ipc$

16/09/2005

var Lesoes:array of array[0..1] of Smallint;
begin
  SetLength(Lesoes, Length(Lesoes)+1);
end;



GOSTEI 0
Raserafim

Raserafim

16/09/2005

ipc$, o comando que você sugeriu não serve para o meu caso, pois preciso redimensionar um array bidimensional, ou seja,
preciso redimensionar a quantidade de linhas de um array que tem mais de uma coluna, com várias linhas cada.


GOSTEI 0
Cabelo

Cabelo

16/09/2005

Na verdade você precisa então montar uma matriz de vetores..

Tente usar arrays dinâmicos..

Fica muito mais simples.. aí vc usa o index deles para dar um setlength.. em qualquer um deles..

Acredito que assim deve funcionar..


GOSTEI 0
Kotho

Kotho

16/09/2005

Lesoes: array of array of Smallint;
...
SetLength(Lesoes, 2);
SetLength(Lesoes[0], 2);
SetLength(Lesoes[1], 2);


GOSTEI 0
Ipc$

Ipc$

16/09/2005

Bom um array bidimensional só possui linhas e colunas. Como a qtde de colunas é fixa(2), o código redimensiona a qtde de linhas sempre com duas colunas.


GOSTEI 0
POSTAR