Actualizar todos los registros de un ClientDataSet

[[oscarac]]

Como dice el titulo como hago para actualizar todos los registros ?
la idea es que tengo una tabla en memoria con varios registros y una columna de ITEM que va del 1 al Nº total de registros

imaginemos que tengo una tabla con 60 registros, enumerados y si borro el registro 20, todos los demas deben re-enumerarse y tendre 59 registros....

estaba pensando en

Código Delphi [-]
vitem := 1;
CdsAsiento.First;
While not cdsasiento.eof do
Begin
  cdsasiento.edit;
  cdsasiento.item.value := vItem;
  cdsasiento.post;
  inc(vitem);
End;

existe alguna otra manera?

[Caminante]

Hola


Como es un clientdataset podrias crear el campo para la numeracion como calculado y luego en el evento oncalcfields:

Código Delphi [-]
MiDataset.fieldbyname('Num').asinteger:=Midataset.recno;

No lo he probado pero una vez hice lo mismo y mas o menos recuerdo que asi lo resolvi.



Espero sea util


Saludos

[[oscarac]]

no funciona, me sale 0 en todos los registros.

[ecfisa]

Hola.

Pero, ¿ Asignaste la propiedad TClientDataSet.RecNo al campo calculado en el evento OnCalcFields del TClientDataSet ?

Saludos

[[oscarac]]

me explicas como se hace por favor?

[ecfisa]

Hola.

Si por supuesto, va un ejemplo:

1.- Sobre el TClientDataSet hace click con botón derecho del mouse y agrega los campos persistentes:


2.- Agrega un nuevo campo:


3.- Definelo:


Y luego, estando seleccionado el TClientDataSet, desde el Object Inspector -> events -> doble click sobre el evento -> OnCalcFields y dentro del procedimiento este código:

Código Delphi [-]
procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
  cdsRecNo.Value := ClientDataSet1.RecNo;
end;

Saludos