AdoQuery1.Active := True;
table := TClientDataset.Create(Application);
table.FieldDefs.Add(””id””, ftInteger, 0, False);
table.FieldDefs.Add(””Přidat””, ftBoolean, 0, False);
table.FieldDefs.Add(””typ””, ftString, 0, False);
table.FieldDefs.Add(”’’skupina””, ftString, 0, False);
table.FieldDefs.Add(””vlastnost””, ftstring, 0, False);
table.CreateDataSet;
table.Open;
for I := 0 to Adoquery1.RecordCount – 1 do
begin
showmessage(ADOQuery1.FieldByName(””id””).asString);
table.Append;
table.FieldByName(””id””).AsInteger := ADOQuery1.FieldByName(””id””).asInteger;
table.FieldByName(””Přidat””).asBoolean := false;
table.FieldByName(””typ””).asString := ADOQuery1.FieldByName(””typ””).asString;
table.FieldByName(”’’skupina””).asString := ADOQuery1.FieldByName(”’’skupina””).asString;
table.FieldByName(””vlastnost””).asString := ADOQuery1.FieldByName(””vlastnost””).asString;
table.Post;
end;