Arrays - como usar dinamicos

Top  Previous  Next

// Voce já pensou: ha se pudesse mudar o tipo de valor de uma StringList...

// Mas pode! use Array dinamicos:

 

 

---------------------- exemplo 1 ----------------------

 

  var

    S: array of Integer;

  begin

    SetLength(S,10);  // Define o tamanho da matriz antes de usar para 10 itens

 

    S[0] := 1// o primeiro item, assim como na StringList é ZERO

    S[6] := 5;

  end;

 

---------------------- exemplo 2 ----------------------

 

  type

    TX = record

      nome : string;

      idade: integer;

    end;

    

   var

     X : array of TX;

   begin

     SetLength(X, 4);

     X[0].Nome := 'Flavio';

     X[3].Idade:= 10;

   end;

 

---------------------- exemplo 3 ----------------------

 

  var

    S: array of array of Double; // multidimensional

  begin

    SetLength(S, 1015); // Seta a array para [0..9,0..14]

    SetLength(S, 5); // seta para 0..4, ?...?

 

    SetLength(S[1], 10); // O S[1] tem 10 subcolunas 

    SetLength(S[2], 18); // O S[2] tem 18 subcolunas

  end;