Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi 59 - Manipulação de Strings
Artigo da Revista Clube Delphi Edição 59.
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
Manipulação de Strings
Dicas e técnicas úteis
O Delphi possui funções bastante úteis para a manipulação de dados do tipo string, muitas desconhecidas pela maioria dos desenvolvedores. Uma das principais rotinas com certeza é a StringReplace, discutida neste artigo,onde criaremos um template processor. No final, veremos como usar uma classe bastante útil relacionada ao assunto: TStringList.
A função StringReplace
A função StringReplace é bastante útil para localizar e substituir
substrings armazenadas dentro de uma string. A rotina é definida
da seguinte forma:
function StringReplace(const S. OldPattern,
NewPattern: string: Flags: TReplaceFlags): string;
Parâmetros:
. S: é a string de origem que possui as substrings a serem localizadas e alteradas;
.OldPattern: substring que será localizada e substituída pela string passada em NewPattern;
.NewPattern: substring que irá substituir as ocorrências da string passada em OldPattern;
.Flags: conjunto de opções que são utilizadas como critério para localização e substituição da string passada em OldPattern.Os valores possíveis para esse parâmetro são:
.rfReplaceAll: substitui todas as ocorrências de OldPattern. Caso essa opção não esteja presente, apenas a primeira ocorrência será substituída;
. rflgnoreCase:compara a substring sem diferenciar entre letras maiúsculas e minúsculas.
Vamos fazer um exemplo simples utilizando essa função. Nossa aplicação irá gerar um documento para verificação de endereço de cada cliente cadastrado, a partir de um arquivo de template. Ou seja, vamos criar um template processor.
Nota: Um template processor permite executar buscas fazendo substituições em um arquivo' de template, trocando tags (ou símbolos) por dados. É bastante utilizado para criar aplicativos de mala-direta.
Inicie uma nova aplicação VCL no Delphi (File|New>VCL Forms Application) e adicione no formulário os seguintes componentes: dois Memos ("mmTemplate" e "mmProcessado"), um BitBtn, um DataSource ("dsCustomer"), um ClientOataSet ("cdsCustomer") e um DBGrid.
Aponte a propriedade DataSource do DBGrid para o dsCustomer e DataSet de dsCustomer para cdsCustomer,Usaremos como fonte de dados o arquivo customer.xml que acompanha o Delphi. Para isso, basta clicar com o botão direito do mouse sobre o cdsCustomer e escolher a opção Load from MyBase table. Selecione o arquivo citado anteriormente, que está localizado por padrão no diretório c:\Arquivosde programas\Arquivos comuns\Borland Shared\Data.
Dica: Você pode usar a mesma técnica com outros tipos de DataSets, como Query, Table, IBTable, ADOTable etc.
Adicione o seguinte código na seção private do formulário:
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
