Olá, venho pela primeira vez deixar a minha contribuição, e sendo a primeira vou postar uma dica sobre o FastReports;
Como reiniciar a contagem de linhas a cada inicio da página e limitando o número de registro nela inserida?
Exemplo:
Pagina 1
1. Fulano de tal
2. Beltrano de Tal
3. Devmedia
4. ClubeDelphi
Pagina 2
1. Dicas de Delphi
2. Conteudo FastReports
3. Outros não especificados
4. Conteúdo fácil
Vocês podem perceber que quero reiniciar a contagem de linha cada vez que uma nova página é adicionada dinamicamente de acordo com a quantidade de registros.
Vamos lá:
- No Masterdata sempre deixe a quantidade de registros igual a 0 (zero), basta dar clique duplo em cima do seu masterdata;
- Com o masterdata selecionado, clique na aba eventos;
- Ja na aba eventos clique duas vezes em OnBeforePrint;
- Antes do inicio da procedure declare a variavel var contarlinha:integer;
- Dentro do Begin e End insira o codigo abaixo:
inc(contarlinha);
linharegistro.Text := inttostr(contarlinha);
MasterData1.StartNewPage := contarlinha = 20;
Comentário:
contarlinha = Nome do Nosso contador que será reiniciado a cada página
inc = Função que irá acrescentar números a variavel contarlinha
linharegistro = Nome de nossa MEMO que exibe o numero da linha dentro do MasterData1
MasterData1 = Nome da Banda que exibe os dados
Inttostr = Converte inteiro para string para poder ser inserido dentro do componente MEMO que é do tipo texto
...
Exibição do post interrompida. Para ler conteúdo completo,
clique aqui