O Delphi dispõe de muitas funções que agilizam o nosso trabalho.
Nesta dica vamos dar destaque a uma função utilizada para
substituir textos. Ela conta com várias opções e seu uso é
muito fácil.
É necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.
Função do Delphi:
StringReplace(texto, texto velho, texto novo, opções);
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button1Click(Sender: TObject); begin // Substitui todos caracteres de mesma caixa ShowMessage(StringReplace('abAcate', 'a', '@', [rfReplaceAll])); // Substitui todos caracteres ignorando a caixa ShowMessage(StringReplace('abAcate', 'a', '@', [rfIgnoreCase, rfReplaceAll])); // Substitui o primeiro caracter de mesma caixa ShowMessage(StringReplace('abAcate', 'a', '@', [])); end; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
