Ver Mensaje Individual
  #9  
Antiguo 06-01-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita