JTheiller

function FileInUse(AFileName: String): Boolean;
var
  HFileRes : HFILE;
begin
  Result := false;
  if not FileExists(fName) then
    Exit;
  HFileRes := CreateFile(PChar(AFileName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then

JTheiller

//Faulty current state example: No Tag "DesignClass"
<DCCReference Include="U_NewFrame\U_NewFrame.pas">
  <Form>NewFrame</Form>
</DCCReference>

//Example with add tag correction     
<DCCReference Include="U_NewFrame\U_NewFrame.pas">
  <Form>NewFrame</Form>
  <FormType>dfm</FormType>
  <DesignClass>TFrame</DesignClass>

JTheiller

Acre                efd@ac.gov.br
Alagoas	            sped-efd@sefaz.al.gov.br
Amapá               sped@sefaz.ap.gov.br
Amazonas            efd@sefaz.am.gov.br
Bahia               faleconosco@sefaz.ba.gov.br
Ceará               sped@sefaz.ce.gov.br
Espírito Santo      spedfiscal@sefaz.es.gov.br
Goiás               sped-fiscal@sefaz.go.gov.br
Mato Grosso         efd@sefaz.mt.gov.br
Mato Grosso do Sul  efd@fazenda.ms.gov.br

JTheiller

boss version
boss upgrade

boss init
boss init --q

(Admin required)
boss login
Host:
User:

JTheiller

//With Band
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin          
  DBXQuery1.Master := MasterData1.DataSet;              
end;

//Direct DataSet
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin          
  DBXQuery1.Master := Report.GetDataSet('Customers');    

JTheiller

function VarIsEmptyOrNull(const Value: Variant): Boolean;
begin
  Result := VarIsClear(Value)
         or VarIsEmpty(Value)
         or VarIsNull(Value)
         or (VarCompareValue(Value, Unassigned) = vrEqual);
  
  if (not Result) and VarIsStr(Value) then
     Result := Value = EmptyStr;
end;

JTheiller

// uses Variants
function VarTypeToStr(Value: Variant): String;
begin
  Result := VarTypeAsText(VarType(Value));
end;

//or

function VarTypeToStr(Value: Variant): String;
var