Hola Ricardo, ya nos contarás cómo va.
Cita:
Empezado por ecfisa
Código Delphi [-]const
TOTREG = 235000;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
s: array[0..255] of char;
begin
Randomize;
FillMemory(@s[0], 255, Byte('-'));
ClientDataSet1.CreateDataSet;
ClientDataSet1.Open;
for i:= 1 to TOTREG do
begin
if i mod 1000 = 0 then
ClientDataSet1.MergeChangeLog;
ClientDataSet1.Append;
...
[...] la respuesta de la propiedad ChangeCount en Button1Click es instantánea.
No sé si se me esté pasando algo por alto [...]
|
Hola Daniel, disculpa que haya pasado por alto lo que cito de tu comentario. La razón por la cual, en tu caso, ChangeCount responde de forma inmediata, es que por cada mil registros haces una llamada a MergeChangeLog, lo cual limpia la bitácora de cambios, regresando ChangeCount al valor de cero.
Un saludo.