---

1. Close the Report Designer.

2. Locate the drop-down list of components at the top of Object Inspector.

3. Select the Detail band in this list (it should be named ppDetailBand1).

4. Select the Events tab and double click on the BeforeGenerate event.

2. Localize a lista drop-down de componentes no topo do Object Inspector.

3. Selecione a faixa de detalhe nesta lista (que deve ser nomeado ppDetailBand1).

4. Selecione a guia Eventos e clique duas vezes sobre o evento BeforeGenerate.

5. Place the following code in the event handler:

5. Coloque o seguinte código no manipulador de eventos:

BuildEmployeeAddress(mmEmployeeAddress1.Lines);
BuildEmployeeAddress(mmEmployeeAddress2.Lines);

6. Scroll up to the form class declaration. Replace the private declarations comment with the following procedure declaration:

6. Vá até a declaração de classe formulário. Substitua as declarações privadas comentar com a seguinte declaração de procedimento:

procedure BuildEmployeeAddress(aStrings: TStrings);

7. Scroll down below the DetailBand BeforeGenerate event handler and insert the code shown below as the BuildEmployeeAddress procedure.

Note: In this event handler we need to build the same address for two different memo components. In order to accomplish this, we can create a general routine (BuildEmployeeAddress) that we can call for each component, or we can build the address in a local string variable and then assign it to both components. We chose the latter approach for readability.

Note: This routine simply retrieves each element of the Employee's address, concatenating and storing the result in the TStrings object passed in the parameter. The 'if' statements check for empty strings, ensuring that no blank lines will appear in the address.

7. Desloque-se abaixo do manipulador de eventos DetailBand BeforeGenerate e insira o código mostrado abaixo como o procedimento BuildEmployeeAddress.

Nota: Neste manipulador de eventos, precisamos construir o mesmo endereço para dois componentes de notas diferentes. A fim de conseguir isso, podemos criar uma rotina geral (BuildEmployeeAddress) que podemos chamar para cada componente, ou podemos construir o endereço de uma variável de cadeia local e, em seguida, atribuí-la a ambas as componentes. Nós escolhemos a última abordagem para facilitar a leitura.

Nota: Esta rotina simplesmente recupera cada elemento do endereço do Empregado, concatenando e armazenando o resultado nas TStrings objeto passado no parâmetro. Os 'se' declarações buscar por cadeias vazias, garantindo que não há linhas em branco aparece no endereço.