Buscar por:

Vetor dinâmico

Código

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;. 

//----------------------------------------------------------------- 

var 

  vetor_taluno: array of TAluno; 

begin 

  setLength( vetor_tAluno, 5 ); 

  vetor_tAluno[0] := TAluno.Create; 

  vetor_taluno[0].Codigo := valor;

//----------------------------------------------------------------- 

 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;

//-----------------------------------------------------------------

type 

  vetor_dinamico = array of TAluno; 

var 

  vetor_aluno: vetor_dinamico;