Autor Téma: ClientDatset insert field  (Přečteno 172 krát)

Offline IBAG2008

  • Nováček
  • *
  • Příspěvků: 37
  • Karma: 0
    • Verze Delphi: D6,D7,2010,XE5,D10
ClientDatset insert field
« kdy: 12-11-2019, 14:49:09 »
Ahoj, potřebuji v ClientDatsetu přidat jedno pole na první místo v
definici, ale až poté, co použiji Assign definice polí z jiného Query. Když dám Fields.Add tak to přidá pole nakonec.
Jak přidám definici pole na začátek? Zkoušel jsem ClientDataSet1.FieldDefs.Insert(0), ale nevím jak ho správně použít.

Kód: Delphi [Vybrat]
  1. ClientDataSet1.FieldDefs.Assign(QueryTest.FieldDefs);
  2. ClientDataSet1.Fields.Add('AKTIVNI_ZAZNAM',fTinteger);
  3. ClientDataSet1.CreateDataSet;

díky Zdeněk


Offline IBAG2008

  • Nováček
  • *
  • Příspěvků: 37
  • Karma: 0
    • Verze Delphi: D6,D7,2010,XE5,D10
Re:ClientDatset insert field
« Odpověď #1 kdy: 19-11-2019, 08:30:43 »
Tak jsem to nakonec udělal přes ten insert, nějak mi to předtím nechtělo fungovat, ale takhle je to již ok.

Kód: Delphi [Vybrat]
  1. ClientDataSet1.FieldDefs.Assign(QueryPracovniCyklus.FieldDefs);
  2. ClientDataSet1.FieldDefs.Insert(0);
  3. with ClientDataSet1.FieldDefs[0] do
  4. begin
  5.     DataType := ftInteger;
  6.     Name := 'CHECKED_RECORD';
  7. end;
  8. ClientDataSet1.CreateDataSet;

Ahoj Zdeněk