Error de declaracion de Clase Dinamica

[jorge82]

Para declarar un array dinámico solo tienes que declararlo de la siguiente forma:

Código Delphi [-]
rubros: array of TRubro // sin el tamaño

y después para asignarle el tamaño y liberarla:

Código Delphi [-]
SetLength(rubros, 200); // 200 elementos
// Utilizar el array...
Finalize(rubros); // Para liberar la memoria, equivalente a SetLength(rubros, 0);

[[movorack]]

En este caso, como habla de recibir los datos desde un JSON, es posible que esté usando una librería que al traducirlos, use Records para almacenar las estructuras que recibe. Al menos manejando SuperObject debí manejarlo así.

Código Delphi [-]
function JsonStringToObject < T > (JSONString: string): T;
  var
    ctx: TSuperRttiContext;
    jso: ISuperObject;
begin
  {$TYPEINFO ON}
  {$METHODINFO ON}
  ctx := TSuperRttiContext.Create;
  try
    jso := SO(JSONString);
    Result := ctx.AsType(jso);
  finally
    FreeAndNil(ctx);
    {$TYPEINFO OFF}
    {$METHODINFO OFF}
  end;
end;

[Maniches]

Muchas Gracias amigos movorack, AgustinOrtu, jorge82 por sus respuestas.
Se me olvido comentar que el sistema que estoy dando mantenimiento esta usando Delphi 6 y Veo que hay sugenrencias que se pueden aplicar en versiones mas actualizadas.

Disculpen por olvidar comentar un detalle importante de la version del Delphi y por ello estoy usando la libreria uLkJSON.pas ya que tambien veo que las versiones mas actuales manejan mejor los servicios REST.

quiero agregar una pregunta mas que me esta pasando con dicha libreria y capaz alguien ya le haya pasado dicho problema:

Al momento de usar los objetos LkJSON si bien no tengo problemas en aplicar la estructura JSON a sus objetos. Al momento de obtener un valor y este tiene un caracter acentuado (á, é, í, ó, ú) me esta devolviendo '' vacio. en la estructura JSON si esta el valor con los caracteres especiales. alguna sugerencia para que permita obtener el valor correcto y con los caracteres que viene en el JSON.

Estaba pensando hacer una funcion que reemplace esos caracteres por codigos validos en la estructura JSON antes de acloparlo a la libreria LkJSON y al asignarles a un Field cambiarlo por el caracter correcto.

alguna otra solucion para esta ultima pregunta?

[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!!!