Ver Mensaje Individual
  #7  
Antiguo 06-09-2012
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Podría ser

Código Delphi [-]
type
  TArrayString=array of array of string;

procedure TForm3.Button2Click(Sender: TObject);
var
   AValues:TArrayString;
   i,j:Integer;
begin
     {Dimensionas la matriz 2x3}
     SetLength(AValues,2,3);

     {asignas valores}
     for i := Low(AValues) to High(AValues) do
         for j := Low(AValues[i]) to High(AValues[i]) do
             AValues[i,j]:=IntToStr(i*j);

     {Procesa la matriz: la tira a un tmemo}
     FncString(AValues);
end;

procedure TForm3.FncString(AValues:TArrayString);
var i,j:Integer;
begin
     for i := Low(AValues) to High(AValues) do
         for j := Low(AValues[i]) to High(AValues[i]) do
             Memo1.Lines.Add(Format('AValue(%d,%d)=%s',[i,j,AValues[i,j]]));
end;

Saludos cordiales
Responder Con Cita