unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, JvMemoryDataset, ZAbstractConnection, ZConnection, ZAbstractRODataset, ZAbstractDataset, ZDataset; type TForm2 = class(TForm) JvMemoryData1: TJvMemoryData; qKalbos: TZQuery; ZConnection1: TZConnection; qKalbosklb_id: TIntegerField; qKalbosklb_info: TWideStringField; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); var i: integer; _Required, _Visible: string; begin qKalbos.Close; qKalbos.Open; for i := 0 to qKalbos.FieldCount - 1 do begin if qKalbos.Fields[i].Required then _Required := 'True' else _Required := 'False'; if qKalbos.Fields[i].Visible then _Visible := 'True' else _Visible := 'False'; OutputDebugString(PWideChar(qKalbos.Fields[i].FieldName + ', required: ' + _Required + ', visible: ' + _Visible)); end; JvMemoryData1.LoadStructure := True; JvMemoryData1.LoadRecords := True; JvMemoryData1.CopyStructure(qKalbos); OutputDebugString('JvMemoryData1'); for i := 0 to JvMemoryData1.FieldCount - 1 do begin if JvMemoryData1.Fields[i].Required then _Required := 'True' else _Required := 'False'; if JvMemoryData1.Fields[i].Visible then _Visible := 'True' else _Visible := 'False'; OutputDebugString(PWideChar(JvMemoryData1.Fields[i].FieldName + ', required: ' + _Required + ', visible: ' + _Visible)); end; end; end.