como criar esse tipo de Matriz no Delphi?
20/12/2015
0
// 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;
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;
Roberto Rodrigues
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)