como criar esse tipo de Matriz no Delphi?

20/12/2015

1

// como criar essa matriz em Delphi ( funciona perfeitamente em Pascal)

e:=
[[0,0,0,' Negativo ',0,0,0,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,6,'red',[0,1,2,5,10,20,50,0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,0,'bla',[0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,0,'eve',[0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,0,'odd',[0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,0,'low',[0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0],
[0,1,1,0,'hig',[0],0,0,1,1,0,0,0,0,0,0,0,0,0,0,0]];

for k:=1 to VarArrayHighBound(e,1) do begin
if(e[k,4]='odd')then begin
e[k,12]:=1; e[k,14]:=e[k,14]+1;
end else begin
e[k,12]:=0; e[k,14]:=0;
end;
end;
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira