Pessoal, façam o teste o RX dá pau no CLIENTDATASET ??? 

 

1.       Apenas coloquem um ClientDataSet na tela, um campo “a” do tipo
INTEGER e coloquem o código abaixo, execute:

a.       Notem que o tempo que irá levar é de 1 Segundo;

 

2.       Agora, abram o ClientDataSet e adicionem um campo “b” do tipo
STRING de tamanho 500, execute:

a.       Notem que agora o tempo é de aproximadamente 5 Segundos;

b.      Se colocarem outro campo STRING “c” por exemplo o tempo passa a ser
9 Segundos, e por ai vai... 

 

3.       AGORA, façam o mesmo teste usando o RXMemoryData dos componentes
RXLibrary, no segundo caso, se emularmos os mesmos testes, vocês irão notar
que o tempo fica em torno de 2 Segundos mesmo criando o segundo campo do
tipo String de 500, uma diferença muito grande;

 

 

**********    Uso qual componente agora ????  *********

 

 

procedure TForm1.bbt1Click(Sender: TObject);

var

  i: Integer;

  vTempo: TDateTime;

begin

  cds1.CreateDataSet;

  cds1.DisableControls;

 

  vTempo := Now;

  for i := 0 to 30000 do

  begin

    cds1.Append;

    cds1.FieldByName('a').AsInteger := i;

    cds1.Post;

  end;

 

  Caption := TimeToStr(Now - vTempo);

  cds1.EnableControls;

end;

 

 

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a