La Cara Oculta de Delphi 6

WebSnap: conjuntos de datos 941
Básicamente, una cesta contiene una cantidad variable de productos, ItemCount. Items
devuelve el nombre de un producto dada su posición en la cesta, y Qty contiene el
número de unidades para ese producto. Ambas propiedades trabajan con la posición,
y son útiles para generar representaciones visuales de la cesta. Por otra parte, la propiedad
vectorial Units acepta como índice la descripción del producto, y devuelve
también la cantidad de unidades que hay en la cesta. Si el producto no existe, Units
devuelve 0; de este modo, tienen sentido instrucciones como la siguiente:
// Si no hay Coca Cola, se añadirá una unidad
FBasket.Units['Coca Cola'] := FBasket.Units['Coca Cola'] + 1;
Pero lo más interesante de TBasket es la propiedad AsVariant. Cuando leemos su
valor, recibimos una representación lineal del contenido de la cesta, dentro de una
cadena de caracteres. Por el contrario, si asignamos en esa propiedad un variante que
contenga cadena correctamente formada, el contenido de la cesta se ajusta al valor
codificado. Adicionalmente, las constantes especiales Unassigned y Null se interpretan
como cestas vacías.
Por último, crearemos una instancia de la cesta dentro del módulo de datos. Mi objetivo
es evitar la creación desenfrenada de objetos temporales de cestas, cada vez que
sea necesario operar con una de ellas. Esto puede evitarnos algo de fragmentación de
la memoria del servidor:
type
TmodDatos = class(TWebAppDataModule)
// …
private
FBasket: TBasket;
// …
end;
La variable se inicializa durante la construcción del módulo de datos:
procedure TmodDatos.WebAppDataModuleCreate(Sender: TObject);
begin
FBasket := TBasket.Create(Self);
end;
Y no hace falta destruirla; al ser un componente y especificar que su propietario es el
módulo de datos, se destruye automáticamente cuando este último dice adiós.
Añadir a la cesta
Ahora nos ocuparemos de la acción de añadir a la cesta. Debe tener presente que
ActionBasket va siempre ligada a una fila concreta del adaptador. Para asociarle un
código de producto utilizaremos los parámetros de la acción, que se definen durante
la respuesta al evento OnGetParams:
procedure TmodDatos.ActionBasketGetParams(Sender: TObject;
Params: TStrings);