Loop

Delphi

11/08/2005

Caros colegas,

Estou tentando fazer o seguinte loop em um ClientDataset e não estou
conseguindo.
Alguém poderia verificar o código abaixo , e me ajudar a encontrar o
erro.
Preciso incrementar o valor de 1 até 5.(mas não posso utilizar campo
autoinc)


procedure Tfm1.FormCreate(Sender: TObject);
var
n,i:integer;
begin
dm.SQLDataSet1.Active:=True;
dm.ClientDataSet1.Active:=True;
n:=5;
begin
i:=0;
while not (i >= n ) do
begin
i:=i+1;
dm.ClientDataSet1.insert;
dm.ClientDataSet1Seq.AsInteger:=i;
dm.ClientDataSet1.post;
dm.ClientDataSet1.next;
end;
end;


Obrigado ,

Jose


Dli

Dli

Curtidas 0

Respostas

Rjun

Rjun

11/08/2005

Você poderia ter especificado o erro q esta dando. Dei uma otimizada no seu código.

procedure Tfm1.FormCreate(Sender: TObject); 
var 
  i:integer; 
begin 
  dm.SQLDataSet1.Active:=True; 
  dm.ClientDataSet1.Active:=True; 
  
  for i := 1 to 5 do
  begin
    dm.ClientDataSet1.insert; 
    dm.ClientDataSet1Seq.AsInteger := i; 
    dm.ClientDataSet1.post; 
  end; 
end;



GOSTEI 0
Eduardo Pereira

Eduardo Pereira

11/08/2005

Tem um ´begin´ a mais (abaixo do ´n:=5;´). O código do Rjun deve funcionar sem erros.

[]´s
Eduardo Pereira


GOSTEI 0
Emerson Nascimento

Emerson Nascimento

11/08/2005

um outro detalhe: NÃO abra o SQLDataset. Manipule apenas o ClientDataset.


GOSTEI 0
POSTAR