Remover as aspas duplas de uma string com Delphi

Para remover as aspas duplas de uma string em Delphi, você pode usar a função StringReplace. Aqui está um exemplo de como fazer isso:

 

   
uses
  SysUtils;

function RemoverAspasDuplas(const Str: string): string;
begin
  Result := StringReplace(Str, '"', '', [rfReplaceAll]);
end;

  
 
      

Neste exemplo, a função RemoverAspasDuplas recebe uma string como entrada e usa a função StringReplace para substituir todas as ocorrências de aspas duplas (") por uma string vazia (''). O parâmetro [rfReplaceAll] garante que todas as ocorrências sejam substituídas.
Você pode chamar essa função da seguinte maneira:

 

   
var
  MinhaString: string;
begin
  MinhaString := 'Esta é uma "string" com aspas duplas.';
  MinhaString := RemoverAspasDuplas(MinhaString);
  ShowMessage(MinhaString); // A saída será: 'Esta é uma string com aspas duplas.'
end;

  
 
      

Isso removerá todas as aspas duplas da string original. Certifique-se de incluir a unidade SysUtils em sua seção uses para usar a função StringReplace.

17/04/2026 05:06 Delphi 869
Topo