unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, ValEdit, ComCtrls,Generics.Collections,uParser;



type
  TfrmFileView = class(TForm)
    tv: TTreeView;
    vle: TValueListEditor;
    Splitter1: TSplitter;
    procedure tvDeletion(Sender: TObject; Node: TTreeNode);
    procedure tvChange(Sender: TObject; Node: TTreeNode);
  private
    const WM_LOADMZ=WM_USER;
    type TWMLoadMZ=packed record
                   Msg:DWORD;
                   CloseIfFail:LongBool;
                   FileName:PChar;
                   Result:Integer
                   end;
    var pMap:Pointer;
        Fields:List<TField>;
    class procedure LoadFile(const FileName:String;View:TfrmFileView=nil);
    procedure WMDropFiles(var Msg:TWMDropFiles);message WM_DROPFILES;
    procedure LoadMZ(var Msg:TWMLoadMZ);message WM_LOADMZ;
    procedure MapFile(const FileName:string);
    procedure UnmapFile;
  public
    procedure AfterConstruction;override;
  end;

var
  frmFileView: TfrmFileView;