514 - Vetor Dinâmico

01)

var

  vetor_string_dinamico: array of string;

  i: integer;

begin

  setLength( vetor_string_dinamico, 10 );

  for i := 0 to high( vetor_string_dinamico) do begin

  vetor_string_dinamico[ i ] := IntToStr( i );

  end;

02)

var

  vetor_taluno: array of TAluno;

begin

  setLength( vetor_tAluno, 5 );

  vetor_tAluno[0] := TAluno.Create;

  vetor_taluno[0].Codigo := valor;

03)

 exemplo:

 var

  vetor_string_dinamico: array of string;

  i: integer;

 begin

  setLength( vetor_string_dinamico, 10 );

  for i := 0 to high( vetor_string_dinamico) do begin

  vetor_string_dinamico[ i ] := IntToStr( i );

  end;

04)

type

  vetor_dinamico = array of TAluno;

var

  vetor_aluno: vetor_dinamico;