[ Aleksandar Ilić @ 13.08.2004. 14:14 ] @
Imam jednu XML tabelu koju sam povezao sa ClientDataSet-om i jednu novu Pardox-ovu bazu podataka koja ima ista polja kao XML tabela. Da ne bi prepisivao 300 unosa u novu bazu, počeo sam da pišem program koji će da uradi posao umesto mene.

Code:

var
  I, N : Integer;
begin
  N := ClientDataSet1.RecordCount;
  for I := 1 to N do
    begin
      Table1.Insert;
      {Ovde treba da napišem kod koji će zapis [I] kopirati 
        polje po polje u novu bazu}
      Table1.Post;
    end;
end;

Tabela ima 5 polja: ID, Ime, Vrsta, Cena, Kategorija.
Znam da je prosto, ali se trenutno ne mogu setim, stao mi mozak.
Ko zna neka piše.

[Ovu poruku je menjao Alekstrade dana 13.08.2004. u 21:26 GMT]
[ Milos D @ 13.08.2004. 18:44 ] @
for j := 0 to ClientDataSet1.fields.count-1 do
table1.fields[j].value := ClientDataSet1.fields[j].value

ako su definicije i redosled polja identicni
[ Aleksandar Ilić @ 13.08.2004. 19:25 ] @
Code:

var
  I, J, N, M: Integer;
begin
  N := ClientDataSet1.RecordCount;
  M := ClientDataSet1.Fields.Count;
  for I := 0 to Pred(N) do
    begin
      Table1.Append;
      for J := 0 to Pred(M) do
        begin
          Table1.Fields[J].Value :=
            ClientDataSet1.Fields[J].Value;
        end;
      Table1.Post;
      ClientDataSet1.Next;
    end;
end;


Evo ga.