Me falto otra clase que tengo para manejar los datos
Código Delphi
[-]
unit Base;
interface
uses
Classes, DB, Variants, SysUtils;
type
TDato = class(TCollectionItem)
private
FNames:String;
FTipos:TFieldType;
FValor:Variant;
public
property Names: string read FNames write FNames;
property Tipos: TFieldType read FTipos write FTipos;
property Valor: Variant read FValor write FValor;
end;
TDatos = class(TCollection)
private
function GetItem(Index: integer): TDato;
procedure SetItem(Index: integer; const Valor: TDato);
public
constructor Create; reintroduce; overload;
procedure AddParam(Names: string; Tipos: TFieldType; Valor: Variant);
property Items[Index: integer]: TDato read GetItem write SetItem; default;
end;
implementation
procedure TDatos.AddParam(Names: string; Tipos: TFieldType; Valor: Variant);
var
claDato:TDato;
begin
claDato:=TDato.Create(Self);
claDato.Names := Names;
claDato.Tipos := Tipos;
claDato.Valor := Valor;
end;
constructor TDatos.Create;
begin
inherited Create(TDato);
end;
function TDatos.GetItem(Index: integer): TDato;
begin
Result := TDato(inherited GetItem(Index));
end;
procedure TDatos.SetItem(Index: integer; const Valor: TDato);
begin
inherited SetItem(Index, Valor);
end;
end.