RH3 Wiki - Documentação do Usuário

Tarefa 2

Digite o código para o evento handler

1. Acesse a área de trabalho Calc clicando na guia Calc

2. Selecione Memo1;

3. Clique com o botão direito no evento OnPrint e selecione New.

4. Digite o seguinte código para o evento handler:

var
  lsLine: String;
  lsState: String;
  lsZIP: String;
begin
{clear memo}
  Memo1.Lines.Clear;

  {add contact}
  lsLine := Customer['Contact'];

  Memo1.Lines.Add(lsLine);

  {add company}
  lsLine := Customer['Company'];

  Memo1.Lines.Add(lsLine);

  {add address line1}
  lsLine := Customer['Addr1'];

  if lsLine <> '' then
    Memo1.Lines.Add(lsLine);

  {add address line2}
  lsLine := Customer['Addr2'];

  if lsLine <> '' then
    Memo1.Lines.Add(lsLine);

  {add city, state zip}
  lsLine := Customer['City'];

  lsState := Customer['State'];

  if lsState <> '' then
    lsLine := lsLine + ', ' + lsState;

  lsZIP := Customer['ZIP'];

  if lsZIP <> '' then
    lsLine := lsLine + ' ' + lsZIP;

  Memo1.Lines.Add(lsLine);

  {add country}
  lsLine := Customer['Country'];

  Memo1.Lines.Add(lsLine);
end;

5. Clique com o botão direito e selecione “Compile”;

6. Visualize o relatório. Seu relatório deve ficar assim:

7. Salve o relatório;

8. Feche o relatório.

Parabéns! Você criou um relatório usando RAP para carregar linhas de endereço em um Memo.