Classe TConsts

A constante NameClientsApplication contém o nome das aplicações clientes que pretendo gerar automaticamente.

A constante NameClientsApplicationExt contém o nome da extenção dos arquivos das aplicações clientes que pretendo gerar automaticamente.

Pilha com tStrings de erros.

A constante accNormal (Const AccNormal = 0;) é um mapa de bits usado para identificar o bit do campo TDmxFieldRec.access que informa se que o campo pode ser editado.

• EXEMPLO

  • Como usar o mapa de bits accNormal para saber se o campo pode ser editado.

    
    with pDmxFieldRecˆ do
      If (access and accNormal <> 0)
      then begin
             ShowMessage(Format('O campo %s pode ser editado'),[CharFieldName]);
           end;

A constante accReadOnly (Const ReadOnly = 1;) é um mapa de bits usado para identificar o bit do campo TDmxFieldRec.access que informa se o campo é somente para leitura.

• EXEMPLO

  • Como usar o mapa de bits ReadOnly para saber se o campo não pode ser editado.

    
    with pDmxFieldRecˆ do
      If (access and ReadOnly <> 0)
      then begin
             ShowMessage(Format('O campo %s não pode ser editado'),[CharFieldName]);
           end;

A constante accHidden (Const accHidden = 2;) é um mapa de bits usado para identificar o bit do campo TDmxFieldRec.access que informa se o mesmo é invisível.

• EXEMPLO

  • Como usar o mapa de bits accHidden para saber se o campo é invisível.

    
    with pDmxFieldRecˆ do
      If (access and accHidden <> 0)
      then begin
          ShowMessage(Format('O campo %s está invisível'),[CharFieldName]); 
          end;

A constante accSkip (Const accSkip = 4;) é um mapa de bits usado para identificar o bit do campo TDmxFieldRec.access que informa se o campo pode receber o focus.

• EXEMPLO

  • Como usar o mapa de bits accSkip para saber se o campo não pode receber o focus.

    
    with pDmxFieldRecˆ do
      If (access and accSkip <> 0)
      then begin
             ShowMessage(Format('O campo %s não pode receber o focus'),[CharFieldName]);
           end;

A constante accDelimiter informa que o campo é delimitador de campos no Template.

A constante fldStr (Const fldStr = 'S') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres 'S' após o caractere "\" representa no buffer do formulário um tipo ShortString que só aceita caractere maiúsculo.

• EXEMPLO

  • Representação de um string de 10 dígitos em um buffer de 11 bytes onde o byte zero contém o tamanho da string;

    
    Const
      Nome := '\SSSSSSSSSS'

A constante fldstr_Lowcase (Const fldstr_Lowcase = 's') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres 's' após o caractere "\" representa no buffer do formulário um tipo ShortString que só aceita caractere minúscula.

• EXEMPLO

  • Representação de um string de 10 dígitos em um buffer de 11 bytes onde o byte zero contém o tamanho da string;

    
    Const
      Nome := '\ssssssssss' //paulosergi
      Nome := '\Ssssssssss' //Paulo serg

A constante fldSTRNUM (Const fldSTRNUM = '#') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres '#' após o caractere "\" representa no buffer do formulário um tipo ShortString que só aceita caractere numérico.

• EXEMPLO

  • Representação de um string de 11 dígitos em um buffer de 12 bytes onde o byte zero contém o tamanho da string;

    
    Const
      telefone := '\(##) # ####-####' //85 9 9702 4498

A constante fldAnsiChar (Const fldAnsiChar = 'C') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres 'C' após o caractere "\" representa no buffer do formulário um tipo AnsiString que só aceita caractere maiúsculo.

• EXEMPLO

  • Representação de um AnsiString de 10 dígitos em um buffer de 11 bytes onde o ultimo byte contém o caractere #0 informando o fim da string;

    
    Const
      Nome := '\CCCCCCCCCC'; //PAULO SÉRG

A constante fldAnsiChar_LowCase (Const fldAnsiChar = 'c') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres 'c' após o caractere "\" representa no buffer do formulário um tipo AnsiString que só aceita caractere maiusculos e minúsculo.

• EXEMPLO

  • Representação de um AnsiString de 10 dígitos em um buffer de 11 bytes onde o ultimo byte contém o caractere #0 informando o fim da string;

    
    Const
      Nome := '\cccccccccc'; //paulo Sérg
      Nome := '\Cccccccccc'; //Paulo Sérg

A constante fldAnsiCharNUM (Const fldAnsiChar = '0') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres '0' após o caractere "\" representa no buffer do formulário um tipo AnsiString que só aceita caractere numérico ['0'..'9']] .

• EXEMPLO

  • Representação de um AnsiString de 11 dígitos em um buffer de 12 bytes onde o ultimo byte contém o caractere #0 informando o fim da string;

    
    Const
    
      telefone := '\(00) 0 0000-0000' //85 9 9702 4498

A constante fldAnsiCharVAL (Const fldAnsiChar = '0') usado na máscara do Template, informa ao componente TUiDmxScroller que a sequência de caracteres '0' após o caractere "\" representa no buffer do formulário um tipo AnsiString que só aceita caractere numérico ['0'..'9']] com formatação dbase.

• EXEMPLO

  • Representação de um AnsiString de 11 dígitos em um buffer de 12 bytes onde o ultimo byte contém o caractere #0 informando o fim da string;

    
    Const
    
      telefone := '\(NN) N NNNN-NNNN' //85 9 9702 4498

byte Field

shortint Field

word Field NortSoft

integer Field NortSoft

longint Field

real number Field (uses TRealNum)

real number Field positive (uses TRealNum)

A constante fldBoolean (fldBoolean = 'X') indica que o campo é do tipo byte e só pode ter dois valores.

• NOTA

  • Valores possíveis:

    • 0 - False; não

    • 1 = True; sim

  • A forma de editá-los deve ser com o componente checkbox.

• EXEMPLO

  
  Resourcestring
    tmp_Aceita = '\X Aceita o contrato +ChFN+'Aceita_contrato'+CharHint+'Aceita os termos do contrato?';
    Template = tmp_Aceita+'˜Aceita os termos do contrato˜

O tipo do campo FldRadioButton tipo byte usado como index de um controle TRadiobutton. Template em um controle TRadioButton

• NOTAS

  • Um template pode conter vários campos do tipo cluster e o mesmo é identificado após a sequência \K? onde ? indica que a informação que pertence ao campo ?

    • Exemplo:

      • SEXO

        • \Ka Masculino

        • \Ka Feminino

        • \Ka Indefinido

  • Os campos clusteres possuem o mesmo número do campo e na primeira ocorrência contém o nome do campo na lista pDmxFieldRec.

• EXEMPLO

  Result :=
    NewSItem('˜  SEXO˜',
    NewSItem('˜  ˜\Ka Masculino',
    NewSItem('˜  ˜\Ka Feminino',
    NewSItem('˜  ˜\Ka Indefinido',
    NewSItem('˜  ESTADO CIVIL˜',
    NewSItem('˜  ˜\Kb Solteiro',
    NewSItem('˜  ˜\Kb Casado',
    NewSItem('˜  ˜\Kb Divorciado',
    nil))))))))

hexadecimal numeric entry

Limite superior do campo (Somente 1 a 255)

A constante fldENUM (fldENUM=ˆE) é um campo do tipo longint que contém o índice corrente da lista de string.

• Os controles usados para edita-lo são:

  • TComboBox se o registro não está associado a banco de dados;

  • TdbLookupComboBox se o registro estiver associado a TDataSet.

• EXEMPLO USO NO TEMPLATE

  
  Const 
    tmpMidia : PSitem = nil;
  
  begin
    tmpMidia := CreateEnumField(TRUE, accNormal, 0,
                                NewSItem(' indefinido ', //0
                                NewSItem(' Pendriver  ', //1
                                NewSItem(' SSD        ', //2 
                                nil))))+CharFieldName+'Midia;
  
    Template = NewSItem('˜  Eu uso ˜'+ tmpMidia + '˜ em meu computador.˜

enumerated Field

A constante fldBLOb indica que o campo é não formatado podendo ser um Record, porém a edição do mesmo será feito por outros meios.

• NOTA

  • Para informar ao buffer do registro que o campo é fldBLOb, a função CreateBlobField é necessário.

  • A class function TUiMethods.CreateBlobField(Len: integer; AccMode,Default: byte) : TDmxStr_ID; reserva espaço para o mesmo.

  • Pendência: Preciso criar um exemplo de uso deste tipo de informação.

zero modifier

A constante fldCONTRACTION omite da visão do usuário a parte do campo que não precisa ser mostrado, ou seja: limita a parte visível do texto permitindo scroll lateral do mesmo.

A constante fldAPPEND é usada para concatenar duas listas do tipo PSItem.

• A constante fldAPPEND é necessário porque DmxScroller trabalha com string curta e a mesma tem um tamanho de 255 caracteres, onde o tamanho está na posição 0.

• Como usar a constante fldAPPEND:

  • A função CreateAppendFields retorna a constante fldAPPEND mais o endereço da string a ser concatenada.

    • EXEMPLO

      
      procedure Template : ShortString;
        Var
          S1,s2,Template : TString;
      begin
        S1 := '˜Nome do Aluno....:˜\ssssssssssssssssssssssssssssssssss';
        s2 := '˜Endereço do aluno:˜\sssssssssssssssssssssssss';
        result := S1+CreateAppendFields(s2);
      end;

    • NOTA

      • A contante fldAPPEND foi criada porque o projeto inicial foi para turbo pascal e ambiente console.

      • A versão atual podemos usar AnsiString visto que o limite do mesmo é a memória.

      • Para usar AnsiString é necessário converter para PSitem com a função: StringToSItem.

        • EXEMPLO:

          
          function TMI_UI_InputBox.DmxScroller_Form1GetTemplate(aNext: PSItem): PSItem;
          begin
            with DmxScroller_Form1 do
            begin
              if _Template  <> ''
              then Result := StringToSItem(_Template, 80);
          
          //    Result := StringToSItem(_Template, 40,TObjectsTypes.TAlinhamento.Alinhamento_Esquerda)
          //    Result := StringToSItem(_Template, 40,TObjectsTypes.TAlinhamento.Alinhamento_Central)
          //    Result := StringToSItem(_Template, 40,TObjectsTypes.TAlinhamento.Alinhamento_Direita)
          //    Result := StringToSItem(_Template, 80,TObjectsTypes.TAlinhamento.Alinhamento_Justificado)
          
              else result := nil;
            end;
          end;

link to chain of TSItem Templates

Real 10 bytes

Real 4 Byte positivos e negativos

Real 4 Byte positivos

P = Real de mostrado x por 100 positivos e negativos

P = Real de mostrado x por 100 positivos

A constante FldLink indica que o campo contém um campo com 255 posições que contém um endereço para um página html ou não:

• LINKS POSSÍVEIS:

  • ˆL+1 = Endereço de uma página na web a ser acessada pelo browser.

  • ˆL+2 = Nome de uma ação da lista actionItens.

Endereço de uma página na web a ser acessada pelo browser.

Nome de uma ação da lista actionItens.

#2 = Longint;Guarda a hora compactada ##:##:##

h = Longint;Guarda a hora compactada hh:hh:hh

#3 = Byte indica que o campo é um operador matemático

TDateTime;Guarda a data e hora compactada. O Formato é retonado pela função TDateFreePascal.TDatesFreePascal.Mask_to_MaskEdit

Usado para omitir os caracteres que estão sendo digitados em qualquer tipo de campo

A contante ChSP é igual CharShowPassword.

Caractere a ser mostrado quando CharShowPassword em fldField for igual = ˆW

A contante CharExecAction é usado para associar ao campo atual uma classe TAction.

• NOTA

  • O interpretador de Templates associa a ação do Template ao corrente campo.

A contante ChEA é igual CharExecAction.

A constante CharFieldName informa o nome do campo no Template. O nome do campo é passado após ˆB e o mesmo não pode conter espaço em branco.

• EXEMPLO DE USO

  
  NewSitem(˜Nome do produto: ˜ SSSSSSSSSSSSSSSS`SSSSSSSˆBNome_do_Produto,nil);

A constante ChFN é igual a CharFieldName, foi criada para facilitar seu uso.

A contante CharListComboBox indica que o campo corrente possuem uma lista de opções do mesmo tipo campo.

• EXEMPLO DE USO

  
  NewSItem('˜Dia de vencimento:˜\sssssssssss'+ChFN+'Dia'+
            CreateOptions(2,NewSItem('Dia 10',
                            NewSItem('Dia 15',
                            NewSItem('Dia 20',
                            NewSItem('Dia 25 e 26',
                          nil)))))+
            CharHint+'O template do campo deve ser do tamanho do maior item da lista.' +
            '˜ dias˜',
          nil);

• NOTA

  • O template do campo deve ser do tamanho do maior item da lista.

A contante ChLCB é igual a CharListComboBox

the same Date Field with a Day/Month/Year sequence

Usado em conjunto com FldBLob

0 = Indica uso normal do produto; 1= Indica que a Password_admin esta logado

Indica se o arquivo e exclusivo. Usado em Set_FileModeDenyALL

• A constante FlushBuffer dar opção para usar cache de disco ou não.

  • NOTA

    • Se True então executa executa FlushDOSFile apos atualização dos arquivos.

• A constante FlushBuffer_Disk é usado para indicar a banco de dados MarIcarai se deve usar cache de disco ou não.

  • NOTA

    • Se True executa executa SysFileFlushBuffers após atualização dos arquivos.

• A constante FlushBuffer_Disk_Transaction é usado para indicar ao banco de dados MarIcarai se deve usar cache de disco ou não.

  • NOTAS

    • False = habilita cache de gravação das transações

    • True = Desabilita cache de gravação das transações

• A constante OkTempoDeTentativas habilita o loop TempoDeTentativas nas leitura e escritas ao arquivo.

• A constante TempoDeTentativas é o tempo em segundos de tentativos nos processos de abertura, leitura e gravação de arquivos.

Último caractere digitado

Usado em readKey para capturar as Teclas Alt, Ctrl, Shift etc.

• A constante Identification é usada para manter os dados do usuário logado ao sistema.

  • Id_branch : 0; //Número da filial do usuário logado

  • Id_user : 1; // Número do usuário Logado;

  • UserName : 'PauloSSPacheco'; // Nome do usuário logado

  • FullUserName : ''; //: Nome completo do usuário logado

  • password : ''; //: Password do usuário logado

Número da filial do usuário logado Número do usuário Logado; Nome do usuário logado Nome completo do usuário logado Password do usuário logado

• A constante pública global CTRL_SLEEP_ENABLE indica se o sistema deve executar a aplicação central caso a rotina atual tiver em loop aguardando alguma ação.

  • Exemplo: Tentando abrir um arquivo onde o mesmo se encontra dentro de uma transação.

• A contante FORMS_APPLICATION_PROCESS_MESSAGES indica se deve ou não executar a aplicação principal;

  1. True : Processa as mensagem da aplicação gráfica quando necessário;

  2. False : ignora.

• Se a constante FORMS_APPLICATION_SHOW_MODAL=True indica que FORMS_APPLICATION_PROCESS_MESSAGES=true e o método TForm_VCL_DmxEditor.ShowModal está em execução.

• A constante HANDLE_INVALID é usada para checar se um handle de um dispositivo é válido ou não

O caracter LF contém o código CHR(10) indicativo de avanço de linha nas impressões e arquivos do tipo texto

O caracter CR contém o código CHR(13) indicativo de retorno do carro nas impressões e arquivos do tipo texto

• A constantes New_Line indica passagem de linha nas impressões e nas gravações de arquivo do tipo texto.

  • Nota:

    • No Windows usa a sequencia CR+LF para passar a linha, o linux obdece o conceito inical no qual o LF foi criado que é passar a linha.

• Abre um arquivo com acesso somente leitura.

  • Mapa de bits : 0 = Bit 0 desligado.

  • REFERÊNCIA:

    • [fmopenread](https://www.freepascal.org/docs-html/rtl/sysutils/fmopenread.html)

• Abre um arquivo com acesso somente gravação.

  • Mapa de bits : 1 = Bit 0 ligado

  • REFERÊNCIA:

    • [fmopenwrite](https://www.freepascal.org/docs-html/rtl/sysutils/fmopenwrite.html)

• Abre um arquivo com acesso de leitura e gravação

  • Mapa de bits : 10 = Bit 1 ligado

  • REFERÊNCIA:

    • [fmopenreadwrite](https://www.freepascal.org/docs-html/rtl/sysutils/fmopenreadwrite.html)

• A Constante fmShareCompat é usada na abertura do arquivo indicando no modo de compatibilidade com o DOS

  • Mapa de bits: 0 = bit 0(zero) desligado

  • REFERÊNCIA:

    • [fmshareexclusive](https://www.freepascal.org/docs-html/rtl/sysutils/fmsharecompat.html)

• Flag usado para tornar acesso ao arquivo no modo exclusivo.

  • NOTA

    • Binário: 10000 = Bit 4 ligado

    • As contantes usadas para abertura de arquivo da unit SysUtils é totalmente diferente das constantes usadas na unit system, por isso o exemplo abaixo não funciona.

  • REFERÊNCIA:

    • [fmshareexclusive](https://www.freepascal.org/docs-html/rtl/sysutils/fmshareexclusive.html)

  • EXEMPLO:

    
     function TFormTests.fTest_Reset(Var f : file  ):longint;
     Begin
       AssignFile(f,'./doc/index.html');
    
     {$i-}
     Reset(f);
    {$i+}
     Result := IoResult;
       If Result <> 0
       then ShowMessage('Error: '+ErrorMessage(result));
     end;
    
     procedure TFormTests.Button_Test_ResetClick(Sender: TObject);
       Var
         f1,f2 : file;
     begin
       fileMode := fmOpenReadWrite or fmShareExclusive  or fmShareCompat
    
       ShowMessage(IntToStr(fileMode));
    
       if fTest_Reset(f1) = 0
       Then fTest_Reset(f2);
    
       closeFile(f1);
       closeFile(f2);
     end;

• Bloqueie o arquivo para que outros processos possam apenas ler.

  • Mapa de Bit: 100000 = Bit 5 ligado.

  • REFERÊNCIA:

    • [fmsharedenywrite](https://www.freepascal.org/docs-html/rtl/sysutils/fmsharedenywrite.html)

• Bloqueie o arquivo para que outros processos não possam ler.

  • Mapa de bits: 110000 = Bit 4 e 5 ligado.

  • REFERÊNCIA:

    • [fmsharedenyread](https://www.freepascal.org/docs-html/rtl/sysutils/fmsharedenyread.html)

• Não bloqueie o arquivo.

  • Mapa de bits: 1000000 = Bit 6 ligado

  • REFERÊNCIA:

    • [fmsharedenynone](https://www.freepascal.org/docs-html/rtl/sysutils/fmsharedenynone.html)

• A constante GLOBAL_RIGHTS é usada em FileCreate se o sistema for linux.

  • REFERÊNCIA

    • https://www.gnu.org/software/libc/manual/html_node/Permission-Bits.html

• O atributo faReadOnly indica que o arquivo é somente para leitura.

  • REFERÊNCIA

    • https://www.freepascal.org/docs-html/rtl/sysutils/fareadonly.html

    • https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html

  • NOTA

    • Usado em TSearchRec e FindFirst

• O atributo faDirectory indica que o arquivo é um diretório.

  • REFERÊNCIA

    • https://www.freepascal.org/docs-html/rtl/sysutils/fadirectory.html

    • https://www.freepascal.org/docs-html/rtl/sysutils/findfirst.html

  • NOTA

    • Usado em TSearchRec e FindFirst

  • EXEMPLO

    
    procedure TFormTests.Button_GetInfoFileClick(Sender: TObject);
    
      function GetInfoFile(FileName:string ; out info : TSearchRec): Integer;
    
      begin
         Result := FindFirst(FileName,faDirectory,Info);
         if Result = 0
         then Begin
                ShowMessage('O Diretório '+fileName+' encontrado.');
              end
         else begin
                ShowMessage('O diretório '+fileName+' não encontrado.');
              end;
      end;
    
      var
       Info: TSearchRec;
       err : integer;
    begin
      err := GetInfoFile(ExpandFileName('..'),info);
      if err = 0 then
      Begin
        showMessage(intToStr(info.Attr));
        FindClose(Info);
      end;
    end;

• O atributo faNormal indica que é uma arquivo normal.

  • REFERÊNCIA

    • https://www.freepascal.org/docs-html/rtl/sysutils/fanormal.html

  • NOTA

    • Usado em FindFirst para indicar que arquivos normais devem ser incluídos no resultado.

• O atributo faAnyFile indica que corresponder a qualquer arquivo

  • REFERÊNCIA

    • https://www.freepascal.org/docs-html/rtl/sysutils/faanyfile.html

  • NOTA

    • Use este atributo na chamada FindFirst para localizar todos os arquivos correspondentes.

• O atributo faArchive indica que o bit do arquivo está definido.

  • REFERÊNCIA

    • https://www.freepascal.org/docs-html/rtl/sysutils/faarchive.html exit the application

  • NOTA

    • Significa que o arquivo tem o conjunto de bits de arquivo. Usado em TSearchRec e FindFirst

• O mapa de bits fsFromBeginning indica ao TFiles.FileSeek que o deslocamento é relativo ao primeiro byte do arquivo. Esta posição é baseada em zero. ou seja, o primeiro byte está no deslocamento 0 (zero).

• O mapa de bits fsFromCurrent indica ao TFiles.FileSeek que o deslocamento é relativo à posição atual.

• O mapa de bits fsFromEnd indica ao TFiles.FileSeek que o deslocamento é relativo ao final do arquivo. Isso significa que o deslocamento só pode ser zero ou negativo neste caso.

* *

turbo access. Erros Db e DaAccess

> Erro retornados nas buscas de registros

Erro gerado ao tentar incluir um registro sem que o mesmo não esteja no modo appending

• Após uma chamada ao sistema operacional a variável publica global LastError guarda 0 (zero) se sucesso ou o código do erro se houve fracasso.

  • A função LastError é atualizada em SetResult.

• A variável pública global TaStatus indica o status da última operação de acesso ao banco de dados Turbo Access.

  • Nota: Sua função é semelhante a LastError;

• A variável pública global OK indica se houver erro na última ação.

  • Nota: Atualizada em SetResult onde OK=true houve sucesso e OK=false houve fracasso.

A constante pública FileMode guarda o modo padrão de abertura dos arquivos;

• NOTAS:

  • Usada em FileOpen e FileCreate.

  • O mapa de bits usado FileMode é inicializado com:

    • Const FileMode : word = fmOpenReadWrite;

• EXEMPLO

  procedure TMi_Rtl_Tests.Action_test_FileCreateExecute(Sender: TObject);
  
    var
      aHandle,aHandle2,aHandle3 :  TMI_ui_types.THandle;
      err:integer;
      s : AnsiString;
  begin
    with TMI_ui_types do
    begin
      err := FileCreate('text.txt',fileMode, ShareMode ,aHandle);
      if err = 0
      then begin
             SysMessageBox('Arquivo text.txt criado na pasta corrente.','Action_test_FileCreateExecute',false);
             s := ExpandFileName('text.txt');
  
             FileMode := fmOpenReadWrite;
             ShareMode := fmShareCompat or fmShareDenyNone;
  
             err := FileOpen(s,FileMode, shareMode,aHandle2);
             if err = 0
             Then begin
                    SysMessageBox('Arquivo text.txt aberto com o modo fmOpenReadWrite e atributo fmShareCompat or fmShareDenyNone.','Action_test_FileCreateExecute',false);
                    FileClose(aHandle2);
                  end
             else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
  
             ShareMode := fmShareCompat or fmShareExclusive;
             err := FileOpen(s,fileMode,ShareMode ,aHandle3);
             if err = 0
             Then begin
                    SysMessageBox('Arquivo text.txt aberto com o modo fmOpenReadWrite e atributo fmShareCompat or fmShareExclusive.','Action_test_FileCreateExecute',false);
                    FileClose(aHandle3);
                  end
             else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
  
  
             FileClose(aHandle);
           end
           else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
    end;
  end;

• A function SetFileMode salva a variável FileModeAnt atual antes de modificar fileMode.;

A constante pública ShareMode guarda o modo padrão de compartilhamento na abertura dos arquivos;

• NOTAS:

  • Usada em FileOpen e FileCreate.

  • O mapa de bits usado ShareMode é inicializado com:

    • Const ShareMode : cardinal = fmShareCompat or fmShareDenyNone;

• EXEMPLO

  
  procedure TMi_Rtl_Tests.Action_test_FileCreateExecute(Sender: TObject);
  
    var
      aHandle,aHandle2,aHandle3 :  TMI_ui_types.THandle;
      err:integer;
      s : AnsiString;
  begin
    with TMI_ui_types do
    begin
      err := FileCreate('text.txt',fileMode, ShareMode ,aHandle);
      if err = 0
      then begin
             SysMessageBox('Arquivo text.txt criado na pasta corrente.','Action_test_FileCreateExecute',false);
             s := ExpandFileName('text.txt');
  
             FileMode := fmOpenReadWrite;
             ShareMode := fmShareCompat or fmShareDenyNone;
  
             err := FileOpen(s,FileMode, shareMode,aHandle2);
             if err = 0
             Then begin
                    SysMessageBox('Arquivo text.txt aberto com o modo fmOpenReadWrite e atributo fmShareCompat or fmShareDenyNone.','Action_test_FileCreateExecute',false);
                    FileClose(aHandle2);
                  end
             else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
  
             ShareMode := fmShareCompat or fmShareExclusive;
             err := FileOpen(s,fileMode,ShareMode ,aHandle3);
             if err = 0
             Then begin
                    SysMessageBox('Arquivo text.txt aberto com o modo fmOpenReadWrite e atributo fmShareCompat or fmShareExclusive.','Action_test_FileCreateExecute',false);
                    FileClose(aHandle3);
                  end
             else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
  
  
             FileClose(aHandle);
           end
           else SysMessageBox(TStrError.ErrorMessage(err),'Action_test_FileCreateExecute',true);
    end;
  end;

• Máximo de pastas dos sistemas de arquivo do linux é limitada ao espaço em disco.

• A contante SpaceChar é usada para criar mascara de entrada de dados.

• A contante SaveMaskChar é usado para informar ao método TUiDmxScroller.Get_MaskEdit_LCL se a mascara deve ser salva com o número ou não.

  • VALORES POSSÍVEIS

    • 0 : Não salve a mascara

    • 1 : Salve a mascara

    • Obs: Para que tdbedit funcione precisa que SaveMaskChar := '0', ou seja a mascara não deve ser salva no banco de dados;

• A contante Auto_Add_Line_Default é usada na construção de formulários de entrada automaticamente.

  • NOTA

    • true o formulário de entrada de dados insere uma linha em branco automaticamente.

A virgula usadas como separador de milhar nas mascaras dos templates númericos

Mostra a virgula como separador de milhares quando o idioma o exigir em números reais e inteiros

O ponto é usada como separador de casas decimais dos templates com números reais, ou seja: O caractere usado para separar as partes inteira e fracionária de um número..

A virgula mostrada em textos como separadorr de casas decimais dos números reais quando o idioma o exigir.

• NOTAS

  • Portugues usao a virgula como seprador de casas decimais;

  • O Inglês usa o ponto como separador de casas decimais.

A constante CharDelimiter_0 indica qua a sequẽncia seguite é um campo de dados

A constante CharDelimiter_1 indica qua a sequẽncia seguite é um campo de dados

A constante CharDelimiter_2 separa nome da tabela do nome do campo

A constante CharShowzeroes inicializa o registro com zeros