Código Delphi [-] TRubro = record cod_rubro : string[20]; dsc_rubro: string[100]; end; type TRubros = class public RecordCount: Integer; Rubros: array of TRubro; end; ... var ListRubros : TRubros; Begin ListRubros:= TRubros.Create;
TRubro = record cod_rubro : string[20]; dsc_rubro: string[100]; end; type TRubros = class public RecordCount: Integer; Rubros: array of TRubro; end; ... var ListRubros : TRubros; Begin ListRubros:= TRubros.Create;
Código Delphi [-] SetLength(ListaRubros.Rubros, 200); //... Finalize(ListaRubros.Rubros);
SetLength(ListaRubros.Rubros, 200); //... Finalize(ListaRubros.Rubros);