unit dataModul;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.UI.Intf, FireDAC.VCLUI.Wait, FireDAC.Comp.UI,
  Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, System.ImageList,
  Vcl.ImgList, Vcl.Controls, Vcl.BaseImageCollection, Vcl.ImageCollection,
  Vcl.VirtualImageList;

type
  TKmen = record
    poz, idKmen, vyrobceCisOrg: integer;
    cislo, nazev, vyrobce, norma, rozmer, material, pu, zprac, pozn, jakObj: string;
    mnoz: Extended;
{$IF CompilerVersion>=34} // Sydney a vys
    class operator Initialize (out Dest: TKmen);
{$ENDIF}
   end;

  TKmenHelper = record helper for TKmen
   function Clear: Boolean;
  end;

  TdatModul = class(TDataModule)
    tblImportKusovnik: TFDMemTable;
    dsImportKusovnik: TDataSource;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    tblImportKusovnikID: TAutoIncField;
    tblImportKusovnikIDKmen: TIntegerField;
    tblImportKusovnikOznaceni: TStringField;
    tblImportKusovnikPopis: TStringField;
    tblImportKusovnikSZ: TStringField;
    tblImportKusovnikRegCis: TStringField;
    tblImportKusovnikNovaKarta: TBooleanField;
    tblImportKusovnikMnozstvi: TFloatField;
    imgList: TImageList;
    tblImportKusovnikNorma: TStringField;
    tblImportKusovnikPozice: TIntegerField;
    vImgList: TVirtualImageList;
    imgCol: TImageCollection;
    tblImportKusovnikPU: TStringField;
    tblImportKusovnikZpracovani: TStringField;
    tblImportKusovnikVyrobce: TStringField;
    tblImportKusovnikMaterial: TStringField;
    tblImportKusovnikTloustka: TFloatField;
    tblImportKusovnikJeProblem: TBooleanField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  datModul: TdatModul;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}


{ TKmenHelper }
 function TKmenHelper.Clear: Boolean;
  begin
   result:= true;
   try
     self.idKmen:= 0;
     self.poz:= 0;
     self.vyrobceCisOrg:= 0;
     self.mnoz:= 0;
     self.cislo:= '';
     self.nazev:= '';
     self.vyrobce:= '';
     self.norma:= '';
     self.jakObj:= '';
     self.rozmer:= '';
     self.material:= '';
     self.pu:= '';
     self.pozn:= '';
    except
     result:= false;
   end;
  end;




{$IF CompilerVersion>=34} // Sydney a vys
  class operator TKmen.Initialize (out Dest: TKmen);
   begin
    Dest.idKmen:= 0;
    Dest.poz:= 0;
    Dest.vyrobceCisOrg:= 0;
    Dest.mnoz:= 0;
    Dest.cislo:= '';
    Dest.nazev:= '';
    Dest.vyrobce:= '';
    Dest.norma:= '';
    Dest.rozmer:= '';
    Dest.material:= '';
    Dest.pu:= '';
    Dest.pozn:= '';
    Dest.jakObj:= '';
   end;
{$ENDIF}



initialization
 datModul := TdatModul.Create(nil);

finalization
 datModul.Free;


end.