LazReport Tutorial/pt: what changed
Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.
Title: LazReport Tutorial/pt
| Old | New | Line | |
|---|---|---|---|
| 1 | + | ## Relatório | |
| 2 | + | ||
| 3 | + | Vamos usar um demo de banco de dados fornecido pelo Delphi (alias DBDEMOS). Você deve criar uma nova aplicação com o formulário principal chamado Form1. | |
| 4 | + | ||
| 5 | + | Ponha no formulário os seguintes componentes: | |
| 6 | + | ||
| 7 | + | - TTable: | |
| 8 | + | - Table1.DataBaseName := DBDEMOS | |
| 9 | + | - Table1.TableName := ANIMALS.DBF | |
| 10 | + | - Table1.Active := TRUE | |
| 11 | + | - TDataSource | |
| 12 | + | - DataSource1.DataSet := Table1 | |
| 13 | + | - TfrDBDataSet | |
| 14 | + | - frDbDataSet.DataSource := DataSource1 | |
| 15 | + | - TfrReport | |
| 16 | + | - TfrDesigner | |
| 17 | + | - 2 TButton | |
| 18 | + | - Button1.Caption := ' Editing' | |
| 19 | + | - Button2.Caption := ' Preview' | |
| 20 | + | ||
| 21 | + | O que resulta em: | |
| 22 | + | ||
| 23 | + | <figure> | |
| 24 | + | <img src="imagem1.jpg" title="imagem1.jpg" /> | |
| 25 | + | <figcaption>imagem1.jpg</figcaption> | |
| 26 | + | </figure> | |
| 27 | + | ||
| 28 | + | O LazReport permite associar nomes de variáveis a campos de dados ou valores do sistema, o que possibilita evitar que o usuário final decifre os geralmente pequenos nomes de campos. Em nosso exemplo vamos tentar criar uma variável nos campos BMP e NAME na Tabela1. | |
| 29 | + | ||
| 30 | + | <figure> | |
| 31 | + | <img src="imagem2.jpg" title="imagem2.jpg" /> | |
| 32 | + | <figcaption>imagem2.jpg</figcaption> | |
| 33 | + | </figure> | |
| 34 | + | ||
| 35 | + | Clique em Variables Editor... | |
| 36 | + | ||
| 37 | + | <figure> | |
| 38 | + | <img src="imagem3.jpg" title="imagem3.jpg" /> | |
| 39 | + | <figcaption>imagem3.jpg</figcaption> | |
| 40 | + | </figure> | |
| 41 | + | ||
| 42 | + | Agora clique no botão “Variables” para definir o lado esquerdo desta janela. | |
| 43 | + | ||
| 44 | + | <figure> | |
| 45 | + | <img src="imagem4.jpg" title="imagem4.jpg" /> | |
| 46 | + | <figcaption>imagem4.jpg</figcaption> | |
| 47 | + | </figure> | |
| 48 | + | ||
| 49 | + | Escreva as sentenças conforme indicado na figura acima. Demo Variables representa a categoria e CampoXXXX as variáveis. Para diferenciar as duas, as variáveis começam com um espaço. Então clique em OK para ter o seguinte: | |
| 50 | + | ||
| 51 | + | <figure> | |
| 52 | + | <img src="imagem5.jpg" title="imagem5.jpg" /> | |
| 53 | + | <figcaption>imagem5.jpg</figcaption> | |
| 54 | + | </figure> | |
| 55 | + | ||
| 56 | + | A categoria é disposta na ComboBox de variáveis acima. Cada variável precisa ser associada a um campo. Para isso, selecione a variável e depois o campo. A variável Name Field é associada ao campo Name da Tabela1. | |
| 57 | + | ||
| 58 | + | Como para as variáveis, clique com o botão direito do mouse no componente frReport e então em New State. Você abriu o editor: | |
| 59 | + | ||
| 60 | + | <figure> | |
| 61 | + | <img src="imagem6.jpg" title="imagem6.jpg" /> | |
| 62 | + | <figcaption>imagem6.jpg</figcaption> | |
| 63 | + | </figure> | |
| 64 | + | ||
| 65 | + | Talvez você tenha notado um pequeno número de objetos na barra de objetos. | |
| 66 | + | ||
| 67 | + | <figure> | |
| 68 | + | <img src="imagem7.jpg" title="imagem7.jpg" /> | |
| 69 | + | <figcaption>imagem7.jpg</figcaption> | |
| 70 | + | </figure> | |
| 71 | + | ||
| 72 | + | Deve ter visto que os objetos são iguais aos componentes QRLabel, QRMemo, etc, do QuickReport. | |
| 73 | + | ||
| 74 | + | <figure> | |
| 75 | + | <img src="imagem8.jpg" title="imagem8.jpg" /> | |
| 76 | + | <figcaption>imagem8.jpg</figcaption> | |
| 77 | + | </figure> | |
| 78 | + | ||
| 79 | + | Em nosso relatório em branco você deve clicar no tipo de faixa que deseja criar: Selecione o título do estado e clique OK. | |
| 80 | + | ||
| 81 | + | | Tipo de faixa | Uso | | |
| 82 | + | |-------------------|-------------------------------------------------------| | |
| 83 | + | | Report title | Publicado apenas na primeira página | | |
| 84 | + | | Report summary | Publicado apenas na última página | | |
| 85 | + | | Page header | Publicado no topo de cada página | | |
| 86 | + | | Page footer | Publicado no pé de cada página | | |
| 87 | + | | Master header | Publicado no começo do primeiro nível (detalhe/barra) | | |
| 88 | + | | Master Data | Dados do primeiro nível | | |
| 89 | + | | Master Footer | Publicado no final do primeiro nível | | |
| 90 | + | | Detail header | Publicado no começo do segundo nível (barra/detalhe) | | |
| 91 | + | | Detail Data | Dados de segundo nível | | |
| 92 | + | | Detail Footer | Publicado no final do segundo nível | | |
| 93 | + | | Subdetail Header | Publicados no começo do terceiro (barra/detalhes) | | |
| 94 | + | | Subdetail Data | Dados de terceiro nível | | |
| 95 | + | | Subdetail Footer | Publicados no fim do terceiro nível | | |
| 96 | + | | Overlay | | | |
| 97 | + | | Heading of column | Publicado no topo de cada coluna | | |
| 98 | + | | Column base | Publicado no começo do grupo | | |
| 99 | + | | Heading of group | Publicado no topo de cada página | | |
| 100 | + | | Foot of group | Publicado no final do grupo | | |
| 101 | + | | VarColumn | Usado para tabelas cruzadas | | |
| 102 | + | ||
| 103 | + | Nesta faixa, adicione um retângulo e o dimensione como quiser. Escolha uma cor para o plano de fundo com o botão Baldinho Cheio, então clique duas vezes no retângulo para indicar o título. | |
| 104 | + | ||
| 105 | + | <figure> | |
| 106 | + | <img src="imagem9.jpg" title="imagem9.jpg" /> | |
| 107 | + | <figcaption>imagem9.jpg</figcaption> | |
| 108 | + | </figure> | |
| 109 | + | ||
| 110 | + | Na primeira linha deve ser indicado o título do relatório e na segunda, duas informações do sistema precisam ser adicionados. Eles são obtidos clicando em DB Field e depois em Other na ComboBox. Agora temos: | |
| 111 | + | ||
| 112 | + | <figure> | |
| 113 | + | <img src="imagem10.jpg" title="imagem10.jpg" /> | |
| 114 | + | <figcaption>imagem10.jpg</figcaption> | |
| 115 | + | </figure> | |
| 116 | + | ||
| 117 | + | Vamos inserir a faixa como dados mestre, então clique duas vezes nessa faixa para selecionar frDBDataSet1, a principal fonte de dados do nosso exemplo. | |
| 118 | + | ||
| 119 | + | <figure> | |
| 120 | + | <img src="imagem11.jpg" title="imagem11.jpg" /> | |
| 121 | + | <figcaption>imagem11.jpg</figcaption> | |
| 122 | + | </figure> | |
| 123 | + | ||
| 124 | + | Na metade esquerda da faixa insira um retângulo e dê um duplo clique. | |
| 125 | + | ||
| 126 | + | <figure> | |
| 127 | + | <img src="imagem12.jpg" title="imagem12.jpg" /> | |
| 128 | + | <figcaption>imagem12.jpg</figcaption> | |
| 129 | + | </figure> | |
| 130 | + | ||
| 131 | + | Aqui podem ser colocados vários campos, mas pode ser mantido um retângulo para um único campo a fim de aplicar formatos, por exemplo. A primeira linha Name \[Field Name\] é obtida escrevendo-se Name e então, com o botão Variable, inserindo a variável \[Field Name\] (poderíamos ter escrito isto diretamente). Para a segunda linha, Size\[\[Table1, “SIZE”\]*2.54\], nós escrevemos Size e com o botão DB Field escolhemos o tamanho do campo de Table1 e para converter este campo, expresso em polegadas, para centímetros, multiplicamos este campo por 2.54. Pode-se ver o poder do fastreport. Com apenas um retângulo coloca-se em nosso estado, a segunda nomeação, dois campos, incluindo um calculado. Agora no lado direito da faixa selecione uma imagem. Para mostrar sempre a mesma figura, seria suficiente dar um duplo clique nessa figura e carregar a figura desejada. Nós queremos uma figura associada com o pressionamento da tecla F11, para mostrar o Inspetor de Objetos. | |
| 132 | + | ||
| 133 | + | <figure> | |
| 134 | + | <img src="imagem13.jpg" title="imagem13.jpg" /> | |
| 135 | + | <figcaption>imagem13.jpg</figcaption> | |
| 136 | + | </figure> | |
| 137 | + | ||
| 138 | + | Informe a propriedade do Memo com a propriedade \[ImageField\]. Isso transforma a figura em um objeto associado com o campo de dados. O nosso primeiro estado está concluído. Deve ser gravado com o mesmo nome rapff. Um clique na pré-visualizaçao nos dá: | |
| 139 | + | ||
| 140 | + | <figure> | |
| 141 | + | <img src="imagem14.jpg" title="imagem14.jpg" /> | |
| 142 | + | <figcaption>imagem14.jpg</figcaption> | |
| 143 | + | </figure> | |
| 144 | + | ||
| 145 | + | Agora vamos escrever o código necessário para carregar e visualizar ou editar o nosso relaltório rap1frf. Para isto adicione ao projeto o seguinte código: | |
| 146 | + | ||
| 147 | + | `TForm1.Button2Click(Sender procedure: TObject); `\ | |
| 148 | + | `begin `\ | |
| 149 | + | ` frReport1.LoadFromFile(' rap1.frf'); `\ | |
| 150 | + | ` FrReport1.ShowReport; `\ | |
| 151 | + | `end;`\ | |
| 152 | + | `TForm1.ButtonClick(Sender procedure: TObject); `\ | |
| 153 | + | `begin `\ | |
| 154 | + | ` frReport1.LoadFromFile(' rap1.frf'); `\ | |
| 155 | + | ` frReport1.DesignReport; `\ | |
| 156 | + | `end; `\ | |
| 157 | + | ||
| 158 | + | Você tem uma edição com pré-visualização que dá a possibilidade de os usuários finais modificarem o relatório sem precisar modificar a aplicação básica. | |
| 159 | + | ||
| 160 | + | Agora vamos adicionar funcionalidades ao nosso exemplo básico. Você deve adicionar um componente TButton com a propriedade Caption := ‘Print’; e um TPrintDialog. Obtemos isso: | |
| 161 | + | ||
| 162 | + | <figure> | |
| 163 | + | <img src="imagem15.jpg" title="imagem15.jpg" /> | |
| 164 | + | <figcaption>imagem15.jpg</figcaption> | |
| 165 | + | </figure> | |
| 166 | + | ||
| 167 | + | Adicione também as unidades de impressora na cláusula uses do seu formulário e ponha o seguinte código no evento OnClick do botão Print: | |
| 168 | + | ||
| 169 | + | `TForm1.bPrintClick(Sender procedure: TObject); `\ | |
| 170 | + | `var`\ | |
| 171 | + | ` FromPg, ToPg, Cpy: Integer; `\ | |
| 172 | + | ` ind: Integer; `\ | |
| 173 | + | ` St: String; `\ | |
| 174 | + | ` Collap: Boolean; `\ | |
| 175 | + | `begin `\ | |
| 176 | + | ` / / Carregar o estado`\ | |
| 177 | + | ` St:=ExtractFilePath(ParamStr(0)); `\ | |
| 178 | + | ` frReport1.LoadFromFile(St+' rap1.frf'); `\ | |
| 179 | + | ` / / Mudando a impressora padrão`\ | |
| 180 | + | ` ind: = Printer.PrinterIndex; `\ | |
| 181 | + | ` / / Preparar o estado; para sair se a preparação não funcionar`\ | |
| 182 | + | ` if not frReport1.PrepareReport then Exit; `\ | |
| 183 | + | ` / / inicializa a limpeza do diálogo para edição de parâmetros`\ | |
| 184 | + | ` with PrintDialog1 C `\ | |
| 185 | + | ` begin `\ | |
| 186 | + | ` Options:=[poPageNums ]; / / autoriza a seleção de páginas`\ | |
| 187 | + | ` Copies: = 1; / / apenas uma espécie`\ | |
| 188 | + | ` Collate: = True; / / cópias ordenadas`\ | |
| 189 | + | ` FromPage: = 1; / / página do começo`\ | |
| 190 | + | ` ToPage: = frReport1.EMFPages.Count; // última página`\ | |
| 191 | + | ` MaxPage: = frReport1.EMFPages.Count; / / número máximo de página`\ | |
| 192 | + | ` if Execute then / / limpeza do diálogo `\ | |
| 193 | + | ` begin `\ | |
| 194 | + | ` if (Printer.PrinterIndex < > ind )/ / a impressora mudou? `\ | |
| 195 | + | ` or frReport1.CanRebuild / / possui uma regeneração de estado? `\ | |
| 196 | + | ` // mudança de impressora `\ | |
| 197 | + | ` or frReport1.ChangePrinter(ind, Printer.PrinterIndex) then `\ | |
| 198 | + | ` frReport1.PrepareReport `\ | |
| 199 | + | ` else Exit; / / a mudança de impressora ocorreu de forma errônea `\ | |
| 200 | + | ` if PrintDialog1.PrintRange = prPageNums then / / fez-se uma seleção de páginas`\ | |
| 201 | + | ` begin `\ | |
| 202 | + | ` FromPg : = PrintDialog1.FromPage; / / primeira página`\ | |
| 203 | + | ` ToPg : = PrintDialog1.ToPage; / / última `\ | |
| 204 | + | ` end; `\ | |
| 205 | + | ` Cpy :=PrintDialog1.Copies; / / número de cópias `\ | |
| 206 | + | ` Collap :=PrintDialog1.Collate; / / exemplares ordenados `\ | |
| 207 | + | ` // recorte de edição da página FromPg com ToPg , " Cpy " `\ | |
| 208 | + | ` // exemplares ordenados (Collap)) `\ | |
| 209 | + | `frReport1.PrintPreparedReport(FromPg, ToPg, Cpy, Collap); `\ | |
| 210 | + | ` end; `\ | |
| 211 | + | ` end; `\ | |
| 212 | + | `end;` | |
| 213 | + | ||
| 214 | + | É um pouco longo mas nada impede que você crie uma classe herdada do TfrReport com um método de impressão ou, mais fácil, crie um procedimento PrintReport(letat: string) que carregue o relatório e o imprima. | |
| 215 | + | ||
| 216 | + | No menu Edit File \> Page Options você obtém isso: | |
| 217 | + | ||
| 218 | + | <figure> | |
| 219 | + | <img src="imagem24.jpg" title="imagem24.jpg" /> | |
| 220 | + | <figcaption>imagem24.jpg</figcaption> | |
| 221 | + | </figure> | |
| 222 | + | ||
| 223 | + | Para escolher o tamanho do papel | |
| 224 | + | ||
| 225 | + | <figure> | |
| 226 | + | <img src="imagem16.jpg" title="imagem16.jpg" /> | |
| 227 | + | <figcaption>imagem16.jpg</figcaption> | |
| 228 | + | </figure> | |
| 229 | + | ||
| 230 | + | Para escolher as margens | |
| 231 | + | ||
| 232 | + | <figure> | |
| 233 | + | <img src="imagem17.jpg" title="imagem17.jpg" /> | |
| 234 | + | <figcaption>imagem17.jpg</figcaption> | |
| 235 | + | </figure> | |
| 236 | + | ||
| 237 | + | Para especificar o número de colunas e o espaço entre as colunas. | |
| 238 | + | ||
| 239 | + | No menu principal do editor, selecione File \> Report options para mostrar a seguinte caixa de diálogo: | |
| 240 | + | ||
| 241 | + | <figure> | |
| 242 | + | <img src="imagem18.jpg" title="imagem18.jpg" /> | |
| 243 | + | <figcaption>imagem18.jpg</figcaption> | |
| 244 | + | </figure> | |
| 245 | + | ||
| 246 | + | Aqui você especifica a impressora necessária para o carregamento de estados e se a preparação é feita em duas formas. | |
| 247 | + | ||
| 248 | + | Se você quer numerar suas páginas com a página atual a partir do número total de páginas, você deve escolher a opção Two-pass Report. | |
| 249 | + | ||
| 250 | + | Aqui serão adicionadas ao nosso exemplo algumas variáveis não relacionadas aos dados. Elas tornarão possível, por exemplo, mostrar as diferentes nomeações de acordo com o contexto. Para isso, abra o editor de relatórios e selecione o menu File e a Lista de Variáveis. Com uma variável Test, como explicado anteriormente, a única diferença é que você não vai selecionar um campo de valor, mas deixar None (o valor padrão). Publique um dos objetos e adicione a variável Test como visto anteriormente. Retorne ao Delphi (não esquecer de salvar seu relatório) e publique o evento OnGetValue do componente FrRepor1 adicionando o seguinte código: | |
| 251 | + | ||
| 252 | + | `procedure TForm1.frReport1GetValue(const ParName: String; `\ | |
| 253 | + | `var ParValue: Varying; VAr fld: TField); `\ | |
| 254 | + | `begin `\ | |
| 255 | + | ` // trata o caso de variáveis não dependentes`\ | |
| 256 | + | ` if UpperCase(ParName)=' TEST' then `\ | |
| 257 | + | ` ParValue:=' Answer: Variable " test1 " '; `\ | |
| 258 | + | `end;` | |
| 259 | + | ||
| 260 | + | Ou também é possível passar o valor diretamente para a variável através do seguinte código: | |
| 261 | + | ||
| 262 | + | ` procedure TForm1.Button1Click(Sender:TObject);`\ | |
| 263 | + | ` begin`\ | |
| 264 | + | ` frReport1.Values.FindVariable('test').Field := QuotedStr('test1');`\ | |
| 265 | + | ` frReport1.ShowReport;`\ | |
| 266 | + | ` end;` | |
| 267 | + | ||
| 268 | + | Isto não é usado para os dados, mas para permitir formatar os dados com DisplayFormat. Agora vamos ver como criar uma variável calculada. Como antes, vamos criar uma nova categoria (opcional) e uma variável. Test Calculation. Selecione uma nova variável e escolha um valor da ComboBox " Other " e " Expression ". Essa seleção ativa a área de dados de entrada Expression. Escreva o seguinte: \[Table1."SIZE"\] + \[Table1."WEIGHT"\] . Dessa forma você obterá o sumário dos campos de dados Size e Weight. Você também pode colocar nome nas variáveis. E pode utilizar os seguintes operadores: | |
| 269 | + | ||
| 270 | + | | Tipos de Operadores | Operadores | | |
| 271 | + | |----|----| | |
| 272 | + | | Logic | \>, \<, BUT, AND, NOT, =, \< \>, \> =, \< = | | |
| 273 | + | | Mathematics\|\|-, *, +, MOD, / | | | |
| 274 | + | ||
| 275 | + | Mais à frente você poderá dispor dos seguintes funções padronizadas: | |
| 276 | + | ||
| 277 | + | | Função | Descrição | Exemplos | | |
| 278 | + | |----------------|---------------------------|----------| | |
| 279 | + | | SUM | Soma | | | |
| 280 | + | | AVG | Média | | | |
| 281 | + | | MIN | Mínimo | | | |
| 282 | + | | MAX | Máximo | | | |
| 283 | + | | FORMATDATETIME | Data e hora formatadas | | | |
| 284 | + | | FORMATFLOAT | Ponto flutuante formatado | | | |
| 285 | + | | LOWERCASE | Letras minúsculas | | | |
| 286 | + | | NAMECASE | Primeira maiúscula | | | |
| 287 | + | | STRTODATE | Data para string | | | |
| 288 | + | | STRTOTIME | Hora para string | | | |
| 289 | + | | UPPERCASE | Letras maiúsculas | | | |
| 290 | + | ||
| 291 | + | Se não for suficiente você pode criar suas próprias funções, mas isso nós veremos mais adiante. | |
| 292 | + | ||
| 293 | + | Agora vamos definir um formato para as variáveis de uma área. Um formato é válido para todas as variáveis de uma área de display. Para mostrar o editor de formatos, clique com o botão direito em uma área e então em Variable Format. | |
| 294 | + | ||
| 295 | + | <figure> | |
| 296 | + | <img src="imagem19.jpg" title="imagem19.jpg" /> | |
| 297 | + | <figcaption>imagem19.jpg</figcaption> | |
| 298 | + | </figure> | |
| 299 | + | ||
| 300 | + | A primeira ComboBox indica o tipo de dado (texto, numérico, data, hora, lógico). A segunda permite selecionar o formato preestabelecido. O tipo Text não permite qualquer formatação e o tipo Number requer um número decimal com vírgula. A não ser para os tipos Text e Logic, você pode usar as funções de formatação do Delphi. Você pode incluir também o conceito de highlighting, que é muito útil para enfatizar dados. Você pode especificar uma condição para aplicar o highlighting. Para isso use a palavra-chave Value para indicar o valor da variável. Aqui é requisitado o highlighting para todos os valores maiores que 1000. Por padrão o highlighter é um simples negrito sobre fundo branco. Você pode definir esses parâmetros para uma área clicando no botão Realce. | |
| 301 | + | ||
| 302 | + | <figure> | |
| 303 | + | <img src="imagem20.jpg" title="imagem20.jpg" /> | |
| 304 | + | <figcaption>imagem20.jpg</figcaption> | |
| 305 | + | </figure> | |
| 306 | + | ||
| 307 | + | Então você pode definir a cor do plano de fundo, o estilo e a cor da fonte a ser usada selecionando Intesified brightness. | |
| 308 | + | ||
| 309 | + | ## Funções | |
| 310 | + | ||
| 311 | + | É necessário adicionar ao arquivo FR.lng a linha seguinte: | |
| 312 | + | ||
| 313 | + | FCT = CATEGORY \| FCT(\<X\>, \<Y\>, \<Z \>) \| Help on the function | |
| 314 | + | ||
| 315 | + | onde: FCT é o nome da função. CATEGORY, é o nome da categoria. FCT(\<X\>, \<Y\>, \<Z \>), é a visualização dos parâmetros necessários, com no máximo 3 parâmetros. Help., é uma pequena Ajuda que deve tornar possívell ao usuário entender o objetivo da função. \| é um separador. Cada parâmetro é separado por vírgula e pode ser uma expressão, uma constante, uma variável, um campo ou dados. As constantes de tipo alfanumérico devem ser limitadas por um caractere. As variáveir são limitadas por and. Os campos de dados são limitados como as variáveis e tem o seguinte formato: | |
| 316 | + | ||
| 317 | + | Dataset_Name. "Field_Name" | |
| 318 | + | ||
| 319 | + | Funções Estatísticas: | |
| 320 | + | ||
| 321 | + | SUM(\<X \>) | |
| 322 | + | . Retorna a soma dos valores dados por \<X\>, que é geralmente um campo de dados. | |
| 323 | + | ||
| 324 | + | AVG(\<X \>) | |
| 325 | + | Retorna a média dos valores dados por \<X\>. | |
| 326 | + | ||
| 327 | + | COUNT | |
| 328 | + | Meter. | |
| 329 | + | ||
| 330 | + | MIN(\<X \>) | |
| 331 | + | Retorna o valor mínimo dos valores dados em \<X\>. | |
| 332 | + | ||
| 333 | + | MAX(\<X \>) | |
| 334 | + | Retorna o valor máximo dos valores dados em \<X \>. | |
| 335 | + | ||
| 336 | + | ### Funções nos dados: | |
| 337 | + | ||
| 338 | + | FORMATDATETIME(\<X\>, \<Y \>) | |
| 339 | + | Retorna os dados abreviados em (TDateTime) \< Y \> no formato \< X \>. \< X \> usa a descrição padrão [Lazarus para formatos](https://www.freepascal.org/docs-html/rtl/sysutils/formatdatetime.html). | |
| 340 | + | ||
| 341 | + | FORMATFLOAT(\<X\>, \<Y \>) | |
| 342 | + | Retorna o numeral \< Y \> no formato \< X \>. \< X \> usa o padrão de descrição [Lazarus para formatos](https://www.freepascal.org/docs-html/rtl/sysutils/formatfloat.html). | |
| 343 | + | ||
| 344 | + | STRTODATE(\<X \>) | |
| 345 | + | Retorna a repesentação (TdateTime) da string \< X \>. \< X \> deve respeitar o formato de dados | |
| 346 | + | ||
| 347 | + | STRTOTIME(\<X \>) | |
| 348 | + | Retorna A representação digital (TDateTime) da string \< X \>. \< X \> deve respeitar o formato de horas. | |
| 349 | + | ||
| 350 | + | ### Funções nos caracteres de conexão: | |
| 351 | + | ||
| 352 | + | LOWERCASE(\<X \>) | |
| 353 | + | Retorna a string \<X\> em letras minúsculas. | |
| 354 | + | ||
| 355 | + | UPPERCASE(\<X \>) | |
| 356 | + | Retorna a string \<X\> em maiúsculas. | |
| 357 | + | ||
| 358 | + | NAMECASE(\<X \>) | |
| 359 | + | Retorna a string \<X\> com a primeira letra maiúscula. | |
| 360 | + | ||
| 361 | + | COPY(\<X\>, \<Y\>, \<Z \>) | |
| 362 | + | Retorna a string \<X\> na posição \< Y \> e comprimento\< Z \>. | |
| 363 | + | ||
| 364 | + | Funções nos numerais: | |
| 365 | + | ||
| 366 | + | FRAC(\<X \>) | |
| 367 | + | Retorna a parte decimal do número \< X \>. | |
| 368 | + | ||
| 369 | + | INT(\<X \>) | |
| 370 | + | Retorna a parte inteira do número \< X \>. | |
| 371 | + | ||
| 372 | + | ROUND(\<X \>) | |
| 373 | + | Retorna o número inteiro correspondente ao arredondamento de \< X \>. | |
| 374 | + | ||
| 375 | + | STR(\<X \>) | |
| 376 | + | Retorna a string correspondente de um número \< X \>. | |
| 377 | + | ||
| 378 | + | ### Funções Lógicas: | |
| 379 | + | ||
| 380 | + | IF(\<X\>, \<Y\>, \<Z \>) | |
| 381 | + | Retorna \< Y \> se a expresssão \< X \> é verdadeira, se falsa retorna \< Z \>. | |
| 382 | + | ||
| 383 | + | Para adicionar suas próprias funções é realmente muito simples. Aqui um código-fonte para adicionar as funções POS e SQRT: | |
| 384 | + | ||
| 385 | + | `Unit FR_OGFct;`\ | |
| 386 | + | `interface `\ | |
| 387 | + | `implementation `\ | |
| 388 | + | `uses FR_Pars, FR_Class; / / Declaração-padrão`\ | |
| 389 | + | `type `\ | |
| 390 | + | ` //Declaração de TBrOGFunctionLibrary `\ | |
| 391 | + | `TfrOGFunctionLibrary = class(TfrFunctionLibrary)`\ | |
| 392 | + | ` public `\ | |
| 393 | + | ` constructor Create; override; `\ | |
| 394 | + | ` procedure DoFunction(FNo:integer procedure; p1, p2,`\ | |
| 395 | + | ` p3:Variant; var valley:string); override; `\ | |
| 396 | + | ` p3:Variant; var valley:string);`\ | |
| 397 | + | ` end; `\ | |
| 398 | + | `//************************** / / * TfrOGFunctionLibrary `\ | |
| 399 | + | `constructor TfrOGFunctionLibrary.Create;`\ | |
| 400 | + | `begin `\ | |
| 401 | + | ` inherited Create; `\ | |
| 402 | + | ` with List do `\ | |
| 403 | + | ` begin`\ | |
| 404 | + | ` Add('POS');`\ | |
| 405 | + | ` ADD('SQRT');`\ | |
| 406 | + | ` end;`\ | |
| 407 | + | `end;`\ | |
| 408 | + | `Procedure TfrOGFunctionLibrary.DoFunction(FNo:Integer procedure; p1,`\ | |
| 409 | + | `p2, p3:Variant; Var valley:String);`\ | |
| 410 | + | `VAr Par1, Par2: Varying;`\ | |
| 411 | + | ` Result: Variantying;`\ | |
| 412 | + | `begin`\ | |
| 413 | + | `Try`\ | |
| 414 | + | ` Case FNo of //FNo é um íindice das funções declaradas no constructor `\ | |
| 415 | + | ` 0 : Begin //função POS `\ | |
| 416 | + | ` Par1:=VarToStr(Parser.Calc(p1)); `\ | |
| 417 | + | ` Par2:=VarToStr(Parser.Calc(P2)); `\ | |
| 418 | + | ` Resultat:=Pos(Par1,Par2);`\ | |
| 419 | + | ` end;`\ | |
| 420 | + | ` 1 : Resultat:=SQRT(Parser.Calc(P1)); //função SQRT`\ | |
| 421 | + | ` end;`\ | |
| 422 | + | ` Except `\ | |
| 423 | + | ` // String resultante se der erro `\ | |
| 424 | + | ` Resultat:='Erreur fonction '+List.Strings[FNo];`\ | |
| 425 | + | ` end;`\ | |
| 426 | + | ` Val:=VarToStr(Resultat); // String resultante`\ | |
| 427 | + | `end;`\ | |
| 428 | + | `Procedure DoInit;`\ | |
| 429 | + | `begin`\ | |
| 430 | + | ` frRegisterFunctionLibrary(TfrOGFunctionLibrary);`\ | |
| 431 | + | `end;` | |
| 432 | + | ||
| 433 | + | No arquivo FR.lng, anexe as seguintes linhas: | |
| 434 | + | ||
| 435 | + | SQRT = Matemática e Trigonometria \| SQRT(\<X\>) \|Retorna a raiz quadrada de \<X\>\ | |
| 436 | + | POS = Strings \| POS(\<X\>,\<Y\>) Retorna a posição da string \<X\> em \<Y\> | |
| 437 | + | ||
| 438 | + | Publique um estado, então em File\>List esta janela aparecerá: | |
| 439 | + | ||
| 440 | + | <figure> | |
| 441 | + | <img src="imagem21.jpg" title="imagem21.jpg" /> | |
| 442 | + | <figcaption>imagem21.jpg</figcaption> | |
| 443 | + | </figure> | |
| 444 | + | ||
| 445 | + | Você pode notar o aparecimento de um pequeno botão (...), ativo somente se for o caso de uma expressão. Clique para abrir o editor abaixo: | |
| 446 | + | ||
| 447 | + | <figure> | |
| 448 | + | <img src="imagem22.jpg" title="imagem22.jpg" /> | |
| 449 | + | <figcaption>imagem22.jpg</figcaption> | |
| 450 | + | </figure> | |
| 451 | + | ||
| 452 | + | Você pode notar a semelhança. Se clicar no botão Add você vai carregar o editor de parâmetros: | |
| 453 | + | ||
| 454 | + | <figure> | |
| 455 | + | <img src="imagem23.jpg" title="imagem23.jpg" /> | |
| 456 | + | <figcaption>imagem23.jpg</figcaption> | |
| 457 | + | </figure> | |
| 458 | + | ||
| 459 | + | De acordo com o número de parâmetros, você terá mais ou menos zonas de edição. O botão (...) torna possível abrir o gerador de expressões para informar o parâmetro. | |
| 460 | + | ||
| 461 | + | ------------------------------------------------------------------------ | |
| 462 | + | ||
| 463 | + | tradução: Ana Carolina Simplicio de Oliveira | |
| 464 | + | ||
| 465 | + | ## See also | |
| 466 | + | ||
| 467 | + | - [[LazReport Tutorial]] English translation of this article | |
| 468 | + | ||
| 469 | + | --- | |
| 470 | + | *From the Free Pascal wiki, page "LazReport Tutorial/pt", as it stood on 2018-03-29 after a change by Mario13, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* | |
| 471 | + | Category: LazReport/pt | |
| 472 | + | Category: Lazarus/pt |
