Error de declaracion de Clase Dinamica

[Maniches]

Disculpen mi poca experiencia en Delphi me pueden ayudar a aclara como seria la forma correcta:

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;

¿Como le asigno a ListRubros.Rubros el espacio en memoria mediante SetLength(XXX, RecordCount)?
Como deberia ser la definicion correcta?

Muchas Gracias por sus comentarios.

[jorge82]

Empezado por Maniches

Disculpen mi poca experiencia en Delphi me pueden ayudar a aclara como seria la forma correcta:

Podría ser así:

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;

¿Como le asigno a ListRubros.Rubros el espacio en memoria mediante SetLength(XXX, RecordCount)?
Como deberia ser la definicion correcta?

Muchas Gracias por sus comentarios.

Código Delphi [-]
SetLength(ListaRubros.Rubros, 200);
//...
Finalize(ListaRubros.Rubros);

[ecfisa]

Hola.

Si tu intención es manejar un caudal medianamente importante de datos en memoria, una buena opción es usar TClientDataSet, v.gr.:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);

  procedure CreateCol(CDS: TClientDataSet; const fldName: string;
    const fldType: TFieldType; const fldSize: Integer = 0;
    const fldReq: Boolean = False);
  var
    fd: TFieldDef;
  begin
    fd := CDS.FieldDefs.AddFieldDef;
    fd.DataType := fldType;
    fd.Name     := fldName;
    fd.Size     := fldSize;
    fd.Required := fldReq;
  end;

var
  cdRub, cdEmp: TClientDataSet;  
begin
  cdRub := ClientDataSetRubro;
  cdEmp := ClientDataSetEmpresa;

  // Rubros
  cdRub.Close;
  cdRub.FieldDefs.Clear;
  CreateCol(cdRub, 'ID', ftInteger);
  CreateCol(cdRub, 'COD_RUBRO', ftString, 20);
  CreateCol(cdRub, 'DSC_RUBRO', ftString, 100);
  cdRub.CreateDataSet;
  cdRub.Open;

  // Empresas
  cdEmp.Close;
  cdEmp.FieldDefs.Clear;
  CreateCol(cdEmp, 'ID', ftInteger);
  CreateCol(cdEmp, 'COD_EMPRESA', ftString, 20);
  CreateCol(cdEmp, 'NOM_EMPRESA', ftString, 100);
  CreateCol(cdEmp, 'RUBRO_ID', ftInteger);  // referencia a ClientDataSetRubro.ID
  cdEmp.CreateDataSet;
  cdEmp.Open;
end;
...

De ese modo, TDataSource mediante, podras conectarle componentes data-aware y aprovechar sus beneficios como si se tratase de una bd en disco.

Por motivos de claridad he creado los campos en tiempo de ejecución pero lo podes hacer desde el Fields Editor en tiempo de diseño.

Este enlace te podría resultar útil: La potencia de los TClientDataSet

Saludos

[Maniches]

Gracias por tu informacion y sugerencia amigo ecfisa.
En realidad estaba complicandome ya que previo a lo que sugieres estaba creando RECORD y CLASS para almacenar la Data que luego lo incluia en un ClienDataSet.

Mejor desde un inicio planteo las estructuras en ClienDataSets y sus referencias y poblar directamente al CDS.

Muchas Gracias y ese va a ser el mejor camino ya que los CDS es un buen Objeto para manipular data.

Entre mis ultimas respuesta hice otra pregunta amigo con respecto a la libreria uLkJSON.pas no se si te ha pasado o me sugieres alguna forma para solucionar el problema que me esta ocurriendo.

Muchas Gracias a todos del Foro por su apoyo y sugeriencias.

GRACIAS TOTALES!!!

[[AgustinOrtu]]

El problema de los acentos posiblemente sea por unicode. Como realizas la peticion/lectura de los datos?