Declarar array tipo, exemplo x : array[0..?,1..5] of string;

Question

ai pessoal blz?bom, aki eu d novo,preciso declarar um array onde eu nao sei qtos numeros vai ser,seria algo tipox : array[0..?,1..5] of string;bom se fosse uma array simples era so fazer o seguinte[co...

Okama · Accepted Answer

Matriz := array of array of String; [code:1:e6ca52c20e]SetLength(Matriz, 4, 3)   //matriz&#91;0..3&93; &91;0..2&93;Setlength(Matriz,50,3) //Matriz&91;0..49&93; &91;0..2&93;[/code:1:e6ca52c20e]Dynamic ...

Allan · Answer

Pelo que entendi vc quer um array din�mico , ent�o se for isso a declara��o � array of BaseType .
e pra declarar pode ser algo do tipo :
type
TMyarrayDin = array of integer

e pra trabalhar com ele

Var
Myarray : TMyarrayDin ;

e pra alocar mem�ria pra ele pode ser usando o setlegnht,
SetLenght(Myarray,10) , a� ele aloca um array de 10 inteiros.

Espero ter ajudado !

Allan

Leao · Answer

Nossa, gostaria de saber, se eu nao sei explicar as perguntas ou se so faco perguntas dificeis......

Leao · Answer

Companheiro, nao entendi oq vc qiz responder nao, mas axo q isto ai eu ja faco, mas

precios declarar uma array q vai ter os seguintes valores

x : array[0..4,1.3] of string;

mas em outra hora ela vai ter o seguinte

x : array[0..50,1..3] of string;

como seria usar o SetLength ? bom uso ele para qdo vou declarar uma array q vai ter so linhas...

Desde ja obrigado!!!
ah qdo escrevio o �Nossa...� nao tinha visto sua responta, favor desconcidarar...

Evaldo · Answer

var
vDAV: ArrayBi;
ix,ij,x,j,vLinha:Integer;

begin
x:=0;
j:=0;
vLinha:=1;
SetLength(vdav, vLinha, 9);

for ix := 0 to 0 do
for ij := 0 to 9 do
vdav[ix, ij] := '';

.
.
.
if vTag = 'idvenda' then
vnDav:=XMLNode.NodeValue;

if vTag = 'data' then
vData:=XMLNode.NodeValue;

if vTag = 'idcliente' then
vCliente:=XMLNode.NodeValue;

if vTag = 'id_externo' then
begin
vDAV[x,J]:= vnDav;
ListBox1.Items.Add(vdav[x,j]);

j:=j+1;
vDAV[x,J]:=vData;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
vDAV[x,J]:=vCliente;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
vDAV[x,J]:=XMLNode.NodeValue;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
end;

if vTag = 'quantidade' then
begin
vDAV[x,J]:=XMLNode.NodeValue;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
end;

if vTag = 'valor_vendido' then
begin
vDAV[x,J]:=XMLNode.NodeValue;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
end;

if vTag = 'desconto' then
begin
vDAV[x,J]:=XMLNode.NodeValue;
ListBox1.Items.Add(vdav[x,j]);
j:=j+1;
end;
if vTag = 'acrescimo' then
begin
vDAV[x,J]:=XMLNode.NodeValue;
ListBox1.Items.Add(vdav[x,j]);
SetLength(vdav, vLinha + 1, 9);
vLinha := vLinha + 1;
x:= x + 1;
j:=0;
end;

//Peguei alguns peda�os do meu c�digo o que eu queria te mostrar � essa linha

SetLength(vdav, vLinha + 1, 9);
vLinha := vLinha + 1;