Tabela em array
Queria transportar os valores dos resgistros para uma Array, como faço de uma maneira dinamica.
Agradeço a atenção
Ed
Agradeço a atenção
Ed
Ed_zoo
Curtidas 0
Respostas
Anonymous
08/04/2003
Use a criatividade e estude os códigos abaixo:
[b:f7be1954e3]
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;
[/b:f7be1954e3]
[b:f7be1954e3]
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;
[/b:f7be1954e3]
GOSTEI 0