DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Show Delphi » Object Pascal e Strings » Como retirar as quebras de linha de uma String?

Como retirar as quebras de linha de uma String?

Frequentemente ao recuperar textos do banco de dados há quebras de linha dentro da String.
Para resolver este problema, foi criada uma função muito simples que retira as
quebras de linha de uma String.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

// É necessário estar declarado SysUtils na seção uses.
// Em versões unicode declare System.SysUtils.
 
function RetiraEnter(aText : string): string;
begin
  { Retirando as quebras de linha em campos blob }
  Result := StringReplace(aText, #$D#$A, '', [rfReplaceAll]);
 
  { Retirando as quebras de linha em campos blob }
  Result := StringReplace(Result, #13#10, '', [rfReplaceAll]);
end;
 
// Exemplo de uso.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := Qry.FieldByName('OBS').AsString;
end;
Facebook Comments Box
  • InfusTec
  • 25.880 views
  • 0 comentários
  • 16 de março de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

© 2024 Infus Soluções em Tecnologia - Todos os Direitos Reservados